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MESA MICROCODE 
Version 41 



Mesa.Mu - Instruction fetch and general subroutines 

Last modified by Johnsson - July 20, 1979 8:42 AM 

addresses changed for RAM operation, Johnsson November 5, 1979 4:95 PM 



Get definitions for ALTO and MESA 



#AltoConsts23.mu; 
#Mesab.mu; 



'uCodeVersion' is used by RunMesa to determine what version of the 
Mesa microcode is in ROMl. This version number should be incremented 
by 1 for every official release of the microcode. 'uCodeVersion' is 
mapped by RunMesa to the actual version number (which appears as a 
comment above). The reason for this mapping is the limited number 
of constants in the Alto constants ROM, otherwise, we would obviouslv 
have assigned 'uCodeVersion' the true microcode version number. 

The current table in RunMesa should have the following correspondences: 
uCodeVersion Microcode version Mesa release 

34 4.1 

1 39 5.0 

2 41 6.0 



SuCodeVersion $2; 



Completely rewritten by Roy Levin, Sept-Oct. 1977 
Modified by Johnsson; July 25, 1977 10:20 AM 
First version assembled 5 June 1975. 
Developed from Lampson's MESA.U of 21 March 1975. 
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GLOBAL CONVENTIONS AND ASSUMPTIONS 



1) Stack representation: 

stkp=0 => stack is empty 
sktp=10 => stack is full 

The validity checking that determines if the stack pointer is 
within this range is somewhat perfunctory. The approach taken is 
to include specific checks only where there absence would not lead 
to some catastrophic error. Hence, the stack is not checked for 
underflow, since allowing it to become negative will cause a disaster 
on the next stack dispatch. 

2) Notation: 

Instruction labels correspond to opcodes in the obvious way. Suffixes 

of A and B (capitalized) refer to alignment in memory. 'A' is 

intended 

to suggest the right-hand byte of a memory word; 'B' is intended to 

suggest the left-hand byte. Labels terminating in a lower-case letter 

generally name local branch points within a particular group of 

opcodes. (Exception: subroutine names.) Labels terminating in 'x* 

generally 

exist only to satisfy alignment requirements imposed by various 

dispatches (most commonly IR*- and B/A in instruction fetch). 

3) Tasking: 

Every effort has been made to ensure that a 'TASK' appears 
approximately every 12 instructions. Occasionally, this has 
not been possible, but (it is hoped that) violations occur only 
in infrequently executed code segments. 

4) New symbols: 

In a few cases, the definitions of the standard Alto package 
(ALT0C0NSTS23.MU) have not been quite suitable to the needs of this 
microcode. Rather than change the standard package, we have defined 
new symbols (with names beginning with 'm' ) that are to be used 
instead of their standard counterparts. All such definitions 
appear together in Mesab.Mu. 

5) Subroutine returns: 

Normally, subroutine returns using IDISP require one to deal with 
(the nuisance of) the dispatch caused by loading IR. Happily, 
however, no such dispatch occurs for 'msrO' and 'srl' (the relevant 
bits are 0). To cut down on alignment restrictions, some subroutines 
assume they are called with only one of two returns and can therefore 
ignore the possibility of a pending IR«- dispatch. Such subroutines 
are clearly noted in the comments. 

6) Frame pointer registers (Ip and gp): 

These registers normally (i.e. except during Xfer) contain the 
addresses of local 2 and global 1, respectively. This optimizes 
accesses in such bytecodes as LL3 and SG2, which would otherwise 
require another cycle. 
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Location-specific Definitions 



There is a fundamental difficulty in the selection of addresses that 
are known and used outside the Mesa emulator. The problem arises in 
trying to select a single set of addresses that can be used regardless 
of the Alto's control memory configuration. In effect, this cannot be 
done. If an Alto has only a RAM (in addition, of course, to its basic 
ROM, ROMO), then the problem does not arise. However, suppose the Alto 
has both a RAM and a second ROM, ROMl. Then, when it is necessary to 
move from a control memory to one of the other two, the choice is 
conditioned on (1) the memory from which the transfer is occurring, and 
(2) bit 1 of the target address. Since we expect that, in most cases, 
an Alto running Mesa will have the Mesa emulator in ROMl, the 
externally-known addresses have been chosen to work in that case. 
They will also work, without alteration, on an Alto that has no ROMl. 
However, if it is necessary to run Mesa on an Alto with ROMl and it 
is desired to use a Mesa emulator residing in the RAM (say, for debugging 
purposes), then the address values in the RAM version must be altered. 
This implies changes in both the RAM code itself and the Nova code that 
invokes the RAM (via the Nova JMPRAM instruction). Details concerning the 
necessary changes for re-assembly appear with the definitions below. 

Note concerning Alto IVs and Alto lis with retrofitted 3K control RAMs : 

The above comments apply uniformly to these machines if "RAM" is 
systematically replaced by "RAMI" and "ROMl" is systematically 
replaced by "RAMO". 



7ol,1777,0,nextBa; 



forced to location to save a word in JRAM 



Emulator Entry Point Definitions 

These addresses are known by the Nova code that interfaces to 
the emulator and by RAM code executing with the Mesa emulator in 
ROMl. They, have been chosen so that both such "users" can use the 
same value. Precisely, this means that bit 1 (the 400 bit) must 
be set in the address. In a RAM version of the Mesa emulator 
intended to execute on an Alto with a second ROM. bit 1 must be zero. 



%l,1777,20,Mgo; 

%1, 1777, 400, next, nextA; 

SMinterpret $1004400,0,0; 
%1. 1777, 776, DSTrl,Mstopc; 



Normal entry to Mesa Emulator - load state 
of process specified by ACO. 

Return to 'next' to continue in current Mesa 
process after Nova or RAM execution. 

Documentation refers to 'next' this way. 

Return addresses for 'Savestate'. By 
standard convention, 'Mstopc' must be at 777. 
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Linkage from Mesa emulator to ROMO 

The Mesa emulator uses a numbe 
In posting a return address, t 
control memory in which it res 
addresses must satisfy the fol 
no ROMl extant or emulator 
ROMl extant and emulator i 
In addition, since these addre 
it is desirable that they be a 
Finally, it is desirable that 
pre-defs. It should be noted 
destination location in ROMO, 
with respect to bit 1 mapping) 
or ROMl. [Note pertaining to 
to avoid confusion, the commen 
revised to discuss 3K control 
are compatible with such machi 



r of subroutines that reside in ROMO. 
he emulator must be aware of the 
ides, RAM or ROMl. These return 
lowing constraint: 

in ROMl => bit 1 of address must be 1 
n RAM => bit 1 of address must be 
sses must be passed as data to ROMO, 
vailable in the Alto's constants ROM. 
they be chosen not to mess up too many 
that these issues do not affect the 
since its address remains fixed (even 

whether the Mesa emulator is in RAM 
retrofitted Alto lis with 3K RAMs: 
ts above and below have not been 
RAMs, although the values suggested 
nes . ] 



MUL/DIV linkage: 

An additional constraint peculiar to the MUL/DIV microcode is that 
the high-order 7 bits of the return address be I's. Hence, the 
recommended values are: 

no ROMl extant or emulator in ROMl => MULDIVretloc = 177576B (OK to be odd) 
ROMl extant and emulator in RAM => MULDIVretloc = 177162B (OK to be odd) 



SROMMUL 
SROMDIV 



$L004120,0,0; 
$L004121,0,0; 



MUL routine address (120B) in ROMO 
DIV routine address (121B) in ROMO 



SMULDIVretloc $177162; (may be even or odd) 

; The third value in the following pre-def must be: ((MULDIVretloc-2) AND 777B) 

%1, 1777, 160, MULDIVret,MULDIVretl; return addresses from MUL/DIV in ROMO 



BITBLT linkage: 

An additional constraint peculiar to the BITBLT microcode is that 
the high-order 7 bits of the return address be I's. Hence, 
the recommended values are:. 

no ROMl extant or emulator in ROMl => BITBLTret = 177577B 
ROMl extant and emulator in RAM => BITBLTret = 177175B 



$ROMBITBLT $L004124 , 0, ; BITBLT routine address (124B) in ROMO 

SBITBLTret $177175; (may be even or odd) 

; The third value in the following pre-def must be: (BITBLTret AND 777B)-1 

7ol, 1777, 174, BITBLTintr,BITBLTdone; return addresses from BITBLT in ROMO 



CYCLE linkage: 

A special constraint here is that WFretloc be odd. Recommended 
values are: 

no ROMl extant or emulator in ROMl => 

Fieldretloc = 452B, WFretloc = 523B 
ROMl extant and emulator in RAM => 

Fieldretloc = 34104B, WFretloc = 14023B 



$RAMCYCX 

$Fieldretloc 
$WFretloc 



$L004022,0,0; 

$34104; 
$14023; 



CYCLE routine address (22B) in ROMO 

RAMCYCX return to Fieldsub (even or odd) 
RAMCYCX return to WF (must be odd) 



; The third value in the following pre-def must be: (Fieldretloc AND 1777B) 
%1. 1777, 104. Fieldrc; return address from RAMCYCX to Fieldsub 

; The third value in the following pre-def must be: (WFretloc AND 1777B)-1 
%l,1777,22,WFnzct,WFret; return address from RAMCYCX to WF 



Mesa.mu 24-Jul-81 19:03:01 Page 



Instruction fetch 

State at entry: 

1) ib holds either the next instruction byte to interpret 
(right-justified) or if a new word must be fetched. 

2) control enters at one of the following points: 

a) next: ib must be interpreted 

b) nextA: ib is assumed to be uninteresting and a 

new instruction word is to be fetched. 

c) nextXB: a new word is to be fetched, and interpretation 

is to begin with the odd byte. 

d) nextAdeaf: similar to 'nextA'. but does not check for 

pending interrupts. 

e) nextXBdeaf: similar to 'nextXB', but does not check for 

pending interrupts. 

State at exit: 

1) ib is in an acceptable state for subsequent entry, 

2) T contains the value 1. 

3) A branch (1) is pending if ib = 0, meaning the next 
instruction may return to 'nextA'. (This is subsequently 
referred to as "ball 1", and code that nullifies its 
effect is labelled as "dropping ball 1".) 

4) If a branch (1) is pending, L = 0. If no branch is 
pending, L = 1. 



Mesa.mu 



24-Ju1-81 19:03:01 



Page 



Address pre-def initions for bytecode dispatch table. 



Table must have 2 high-order bits on for BUS branch at 'nextAni'. 

Warning! Many address inter-dependencies exist - think (at least) twice 
before re-ordering. Inserting new opcodes in previously unused slots, 
however, is safe. 
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1400, NOOP, ME, MRE,MXW,MXD, NOT I FY, BCAST, REQUEUE; 000-007 

1410.LL0.LL1,LL2,LL3.LL4,LL5,LL6,LL7; 010-017 

1420,LLB,LLDB,SL0,SL1.SL2,SL3,SL4,SL5; 020-027 

1430,SL6.$L7,SLB,PL0,PL1,PL2,PL3,LG0; 030-037 

1440,LG1,LG2,LG3,LG4,L65,LG6,LG7,LGB; 040-047 

1450,LGDB,S60,SG1.SG2,SG3,SGB,LIO,LI1; 050-057 

1460, LI2,LI3,LI4,LI5,LI6,LIN1,LINI, LIB; 060-067 

1470, LIW, LIMB. LADRB.GADRB, , , , ; 070-077 

1500,R0,R1,R2.R3,R4,RB.W0,W1; 100-107 

1510,W2.WB,RF,WF,RDB.RD0,WDB,WD0; 110-117 

1520,RSTR,WSTR,RXLP,WXLP,RILP,RIGP,WILP,RILO; 120-127 

1530, WSO,WSB.WSF,WSDB, RFC. RFS.WFS, ; 130-137 

1540,, ,,,,,,; 140-147 

1550,,,,,,,,; 150-157 

1560, , ,SLDB,SGDB, PUSH. POP, EXCH,LINKB; 160-167 

1570,DUP,NILCK, ,BNDCK, , , , ; 170-177 

1600,J2,J3,J4,J5,J6,J7,J8.J9; 200-207 

1610,JB,JW,JE02.JEQ3,JEQ4.JEQ5.JEQ6,JEQ7; 210-217 

1620,JEQ8,JEQ9,JEQB,JNE2,JNE3,JNE4,JNE5,JNE6; 220-227 

1630,JNE7,JNE8,JNE9,JNEB,JLB,JGEB,JGB,JLEB; 230-237 

1640,JULB,JUGEB,JUGB,JULEB,JZEQB,JZNEB,.JIW; 240-247 

1650, ADD, SUB. MUL,DBL,DIV,LDIV,NEG. INC; 250-257 

1660, AND, OR, XOR, SHIFT, DADD.DSUB.DCOMP.DUCOMP; 260-267 

1670,ADD01..,,,,,; 270-277 

1700,EFC0.EFC1,EFC2,EFC3,EFC4.EFC5.EFC6,EFC7; 300-307 

1710,EFC8,EFC9.EFC10.EFC11.EFC12.EFC13.EFC14.EFC15; 310-317 

1720,EFCB,LFC1,LFC2.LFC3,LFC4.LFC5,LFC6,LFC7; 320-327 

1730, LFC8,.,,,,,; 330-337 

1740,, LFCB,SFC. RET, LLKB, PORTO, PORTI,KFCB; 340-347 

1750, DESCB,DESCBS, BIT, .BLTC, , ALLOC, FREE; 350-357 

1760, IWDCDWDC, STOP. CATCH, MISC,BITBLT,STARTIO.JRAM; 360-367 

1770.DST,LST.LSTF. .WR.RR.BRK.StkUf ; 370-377 
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Main interpreter loop 



Enter here to interpret ib. Control passes here to process odd byte 
of previously fetched word or when preceding opcode "forgot" it should 
go to 'nextA'. A 'TASK' should appear in the instruction preceding 
the one that branched here. 

next: L^-O , :nextBa; (if from JRAM, switch banks) 

nextBa: SINK*-ib, BUS; dispatch on ib 

ib^L, T*-0+l, BUS=0, :NOOP; establish exit state 



NOOP - must be opcode 

control also comes here from certain jump instructions 



!l,l,nextAput; 

NOOP: L<-mpc+T, TASK, :nextAput; 



Mesa.mu 



24-JU1-81 19;03:01 



Page 8 



Enter here to fetch new word and interpret even byte. A 'TASK' should 
appear in the instruction preceding the one that branched here. 



nextA: 



L<-MAR^mpc+l , : nextAcom ; 



initiate fetch 



Enter here when fetch address has been computed and left in L. A 'TASK' 
should appear in the instruction that branches here. 



nextAput: temp*-L; 

L*-MAR*-temp , : nextAcom ; 



stash to permit TASKing 



Enter here to do what 'nextA' does but without checking for interrupts 



nextAdeaf: L*-MAR<-mpc+l ; 

nextAdeafa: mpc*-L, BUS=0, inextAcomx; 



; Common fetch code for 'nextA' and 'nextAput' 

! l,2,nextAi .nextAni ; 
1 l,2,nextAini ,nextAii ; 



nextAcom: 
nextAcomx: 



mpc^L; 

SINK«-NWW. BUS = 0; 
T<-177400, :nextAi; 



updated pc 

check pending interrupts 



No interrupt pending. Dispatch on even byte, store odd byte in ib. 



nextAni: L<-MD AND T, BUS, :nextAgo; 
nextAgo: ib^L LCY 8, L^T<-0+l, :NOOP; 



L^"B"t8. dispatch on "A" 
establish exit state 



Interrupt pending - check if e/iabled. 



nextAi: L*-MD; 

SINK^wdc, BUS=0; 

T*-M.T, :nextAini; 
nextAini: SINK<-M. L<-T , BUS, :nextAgo; 



check wakeup counter 
isolate left byte 
dispatch even byte 



Interrupt pending and enabled. 
!l,2,nextXBini,nextXBii; 



nextAi i ; 



L*-mpc-l; 

mpc<-L, L*-0, :nextXBii; 



back up mpc for Savpcinframe 
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Enter here to fetch word and interpret odd byte only (odd-destination jumps). 
!l,2,nextXBi ,nextXBni; 



nextXB: 



L^MAR<-mpc+T ; 

SINK^NWW, BUS=0, :nextXBdeaf; 



check pending interrupts 



Enter here (with branch (1) pending) from Xfer to do what 'nextXB' does but without 
checking for interrupts. L has appropriate word PC. 

nextXBdeaf: mpc*-L. :nextXBi; 



No interrupt pending. Store odd byte in ib. 



nextXBni: L*-MD. TASK, :nextXBini; 
nextXBini: ib^L LCY 8, :next; 



skip over even byte (TASK 
prevents L<-0, :nextBa) 



Interrupt pending ~ check if enabled. 



nextXBi : 



SINK<-wdc. BUS = 0, :nextXBni; 



check wakeup counter 



Interrupt pending and enabled. 



nextXBii ; 



ib^L, :Intstop; 



ib = for even, ~= for odd 
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Subroutines 



The two most heavily used subroutines (Popsub and Getalpha) often 
share common return points. In addition, some of these return points have 
additional addressing requirements. Accordingly, the following predef initions 
have been rather carefully constructed to accommodate all of these requirements. 
Any alteration is fraught with peril. 

[A historical note: an attempt to merge in the returns from FetchAB as well 
failed because more than 31D distinct return points were then required. Without 
adding new constants to the ROM, the extra returns could not be accommodated. 
However, for Popsub alone, additional returns are possible - see Xpopsub.] 

Return Points {sr0-srl7) 

!17,20,Fieldra,SFCr,pushTB,pushTA,LLBr,LGBr,$LBr,SGBr, 
LADRBr,GADRBr,RFr,Xret,INCr,RBr,WBr,Xpopret; 

; Extended Return Points {sr20-sr37) 

; Note: KFCr and EFCr must be odd! 

!17,20,XbrkBr,KFCr,LFCr,EFCr,WSDBra,DBLr,LINBr,LDIVf , 
Dpush,Dpop,RDOr,Splitcomr,RXLPrb,WXLPrb,MISCr, ; 

; Returns for Xpopsub only 

!17,20,WSTRrB,WSTRrA,JRAMr,WRr,STARTIOr,PORT0r,WD0r,ALLOCrx, 

FREErx,NEGr,RFSra,RFSrb,WFSra,DE$CBcom,RFCr,NILCKr; (more could be appended) 



; Extended Return Machinery (via Xret) 

!l,2,XretB,XretA; 

Xret: SINK^DISP, BUS, :XretB; 

XretB: :XbrkBr; 

XretA: SINK<-0, BUS = 0s :XbrkBr; keep ball 1 in air 



Mesa.mu 



24-JU1-81 19:03:01 



Page 11 



Pop subroutine: 

Entry conditions: 

Normal IR linkage 
Exit conditions: 

Stack popped into T and L 



!l,l,Popsub; 
!7,l,Popsuba; 



! 17,20,Tpop,Tpop0,Tpopl,Tpop2,Tpop3,Tpop4,Tpop5»Tpop6.Tpop7, ,,,,,,; 



Popsub: 
Popsuba: 



L*-stkp-l, BUS. TASK, : Popsuba; 
stkp<-L, :Tpop; 



shakes B/A dispatch 
shakes IR^ dispatch 



old stkp > 



Xpop subroutine: 

Entry conditions: 

L has return number 
Exit conditions: 

Stack popped into T and L 
Invoking instruction should specify 'TASK' 



!l,l,Xpopsub; 

Xpopsub: 
Tpop: 



Xpopret: 



saveret<-L; 
IR*-srl7, :Popsub; 



SINK^saveret, BUS; 
:WSTRrB; 



shakes B/A dispatch 



returns to Xpopret 

Note: putting Tpop here makes 

stack underflow logic work if 

stkp=0 
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Getalpha subroutine: 

Entry conditions: 

L untouched from instruction fetch 
Exit conditions: 

alpha byte in T 

branch 1 pending if return to 'nextA' desirable 

L=0 if branch 1 pending, L=l if no branch pending 



l,2,Getalpha.GetalphaA; 

7,l,Getalphax; 

7,l,GetalphaAx; 



Getalpha: 
Getalphax: 

GetalphaA: 
GetalphaAx: 



Getalphab: 



T^ib, IDISP; 
ib^L RSH 1, L*-0. 

L<-MAR*-mpc+l; 

mpc*-L; 

T<-177400; 

L<-MD AND T, T<-MD; 

T*-377.T, IDISP; 

ib*-L LCY 8, L^O+1, 



BUS=0, :Fieldra; 



:Fieldra; 



shake IR^ dispatch 
shake IR<- dispatch 



ib*-0, set branch 1 pending 

initiate fetch 

mask for new ib 

L: new ib, T: whole word 

T now has alpha 

return: no branch pending 



FetchAB subroutine: 

Entry conditions: none 
Exit conditions: 
T: <<mpc>+l> 
ib: unchanged (caller must ensure return to 



'nextA' 



1,1, FetchAB; 

7.1,FetchABx; 

7,10,LIWr,JWr, 



drops ball 1 
shakes IR*- dispatch 
return points 



FetchAB: L*-MAR*-mpc+l , :FetchABx; 
FetchABx: mpc^L, IDISP; 
T<-MD, :LIWr; 
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Splitalpha subroutine: 
Entry conditions: 
L: return index 
entry at Splitalpha if instruction is A-aligned, entry at 

SplitalphaB if instruction is B-aligned 
entry at Splitcomr splits byte in T (used by field instructions) 
Exit conditions: 

lefthalf: alpha[0-3] 
righthalf: alpha[4-7] 



1,2, Splitalpha, SplitalphaB; 

l,l,Splitx; drop ball 1 

%160, 377, 217, Spl i to, Splitl,Split2,Split3.Split4,Split5.Split6, Split?; 
!1.2,SplitoutO,Splitoutl; 
!7,10,RILPr,RIGPr,WILPr,RXLPra,WXLPra,Fieldrb, , ; subroutine returns 



Splitalpha: 
SplitalphaB: 

Spl itcom: 
Spl itcomr: 
Splitx: 



SplitO 
Splitl 
Split2 
Splits 
Split4 
Splits 
Splite 
Split7 



Splitoutl; 
SplitoutO: 



saveret<-L, L<-0+l, :Splitcom; 
saveret^L, L<-0, BUS=0, :Splitcom; 

IR<-sr33, :Getalpha; 

l<rl7 AND T, :Splitx; 

righthalf<-L, L<-T, TASK; 

temp*-L; 

L^temp, BUS; 

temp^L LCY 8, SH<0, :SplitO; 



L*-T<-0, 


Spl itoutO; 


L^T^ONE 


:SplitoutO; 


L<-T^2, 


SplitoutO; 


L^T^3. 


Spl itoutO; 


L^T<-4, 


SplitoutO; 


L^T*-5, 


SplitoutO; 


UT<-6, 


SplitoutO; 


UT<-7, 


SplitoutO; 


UIO+T, 


:SplitoutO; 



L<-1 for Getalpha 
(keep ball 1 in air) 

T:alpha[0-7] 

L:alpha[4-7] 

L:alpha, righthalf :alpha[4-7] 

temp:alpha 

dispatch on alpha[l-3] 

dispatch on alpha[0] 

L,T:alpha[l-3] 



SINK<-saveret, BUS. TASK; 
lefthalf<-L, :RILPr; 



L:alpha[0-3] 

dispatch return 
lefthalf :alpha[0-3] 
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Di spatches 



Pop-into-T (and L) dispatch: 

dispatches on old stkp, so TpopO = 1 mod 20B. 



TpopO: 


L<-T*-stkO, 


IDISP, 


:Tpopexit 


Tpopl: 


L^T<-stkl, 


IDISP, 


:Tpopexit 


Tpop2: 


L^T^stkZ, 


IDISP, 


:Tpopexit 


Tpop3: 


L^T^stkS, 


IDISP, 


:Tpopexit 


Tpop4: 


L*-T<-stk4. 


IDISP, 


:Tpopexit 


Tpop5: 


L<-T*-stk5, 


IDISP, 


:Tpopexit 


Tpop6: 


L^T*-stk6. 


IDISP, 


:Tpopexit 


Tpop7: 


L^T^stk?. 


IDISP. 


:Tpopexit 


Tpopexit: 


:Fie1dra; 







to permit TASK in Popsub 
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pushMD dispatch: 

pushes memory value on stack 

The invoking instruction must load MAR and may optionally keep ball 1 
in the air by having a branch pending. That is, entry at 'pushMD' will 
cause control to pass to 'next', while entry at 'pushMDA' will cause 
control to pass to 'nextA'. 



3,4, pushMD , pushMDA , StoreB , StoreA ; 
17,20,push0,pushl,push2,push3,push4,push5,push6,push7,pushl0, ,,,,,,; 



pushMD: L*-stkp+l, IR*-stkp; 

stkp<-L, T^O+1, :pushMDa; 

pushMDA: L*-stkp+l, IR<-stkp; 

stkp<-L, T<-0, :pushMDa; 

pushMDa: SINK^DISP, L*-T. BUS; 

L<-MD. SH = 0, TASK, :push0; 



(IR<- causes no branch) 
{IR<- causes no branch) 
dispatch on old stkp value 



Push-T dispatch: 

pushes T on stack 

The invoking instruction may optionally keep ball 1 in the air by having a 
branch pending. That is, entry at 'pushTB' will cause control to pass 
to 'next', while entry at 'pushTA' will cause control to pass to 'nextA'. 



!l,2,pushTlB,pushTlA; 

pushTB: L*-stkp+l, BUS, :pushTlB; 
pushTA: L<-stkp+l, BUS, :pushTlA; 

pushTlB: Stkp<-L, L*-T , TASK, :push0; 
pushTlA: Stkp*-L, BUS = 0, L<-T, TASK, :push0; 



keep ball 1 in air 



BUS=0 keeps branch pending 



push dispatch: 

strictly vanilla-flavored 

may (but need not) have branch (1) pending if return to 'nextA' is desired 

invoking instruction should specify TASK 



; Note: the following pre-def occurs here so that dpushofl can be referenced in pushlO 
!17,20.dpush, ,dpushl,dpush2,dpush3 ,dpush4,dpush5, dpush6,dpush7, dpushofl ,dpushof 2, , , , , ; 



pushO: 


stkO<-L, 


:next; 


pushl: 


stkl^L, 


:next; 


push2: 


stk2<-L, 


:next; 


push3: 


stk3^L, 


:next; 


push4: 


Stk4*-L, 


:next; 


push5: 


stkS^L, 


:next; 


push6: 


stk6^L, 


:next; 


push7: 


stk7^L, 


:next; 


pushlO: 


:dpushof 1; 



honor TASK, stack overflow 
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Double-word push dispatch: 

picks up alpha from ib» adds it to T, then pushes <result> and 

<resun+l> 
entry at 'Dpusha' substitutes L for ib. 
entry at 'Dpushc' and 'DpB' is used by RR 6 logic, 
entry at 'dpush' is used by MUL/DIV/LDIV logic, 
returns to 'nextA' <=> ib = or entry at 'Dpush* 



l,2,DpA,DpB; 

l,l,Dpushb; 

5.2.Dpushx,RCLKr; 



Dpush: 
Dpusha: 



DpA: 
DpB: 

Dpushb: 
Dpushx: 
Dpushc: 



dpush: 



MAR^L<-ib+T, :DpB; 

SINK*-ib. BUS = 0; 
MAR*-L*-M+T. :DpA; 

IR*-0, :Dpushb; 
IR^2000, :Dpushb; 

temp<-L, :Dpushx; 

L<-MD, TASK, :Dpushc; 

taskhole<-L; 

T*-0+l; 

L*-stkp+T+l; 

MAR<-temp+l; 

stkp<-L; 

L*-taskhole; 

SINK<-stkp. BUS, :dpush; 

T<-MD, :dpush; 



dpushl: 


Stk0*-L, UT. TASK, 


mACSOURCE, 


:pushl 


dpush2: 


stkl^L, L<-T, TASK, 


mACSOURCE, 


:push2 


dpush3: 


Stk2<-L, L^T, TASK, 


mACSOURCE, 


:push3 


dpush4: 


stkS^L, L<-T, TASK, 


mACSOURCE, 


:push4 


dpushS: 


Stk4<-L, UT, TASK, 


mACSOURCE, 


:push5 


dpushS: 


Stk5<-L, L<-T, TASK, 


mACSOURCE, 


:push6 


dpush7r 


stk6^L, UT, TASK, 


mACSOURCE, 


:push7 


dpushof 1: 


T<-sStackOverflow, 


:KFCr; 




dpushof2: 


T*-sStackOverflow, 


:KFCr; 





shakes B/A dispatch from RCLK 
shakes IR+-2000 dispatch and 
provides return to RCLK 

L: address of low half 



mACSOURCE will produce 
mACSOURCE will produce 1 

temp: address of low half 

taskhole: low half bits 



fetch high half 
stkp <- stkp+2 
L: low half bits 
dispatch on new stkp 
T: high half bits 

stack cells are S-registers, 
so mACSOURCE does not affect 
addressing. 
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TOS+T dispatch: 

adds TOS to T, then initiates memory operation on result. 

used as both dispatch table and subroutine - fall-through to 'pushMDV 

dispatches on old stkp, so MAStkTO = 1 mod 20B. 



!17,20.MAStkT,MAStkT0,MAStkTl,MAStkT2,MAStkT3,MAStkT4,MAStkT5,MAStkT6.MAStkT7, 



MAStkTO 
MAStkTl 
MAStkT2 
MAStkTS 
MAStkT4 
MAStkT5 
MAStkT6 
MAStkT7 



MAR<-stkO+T. :pushMD; 

MAR<-stkl+T, :pushMD; 

MAR<-stk2+T, :pushMD; 

MAR<-stk3+T, :pushMD; 

MAR<-stk4+T, :pushMD; 

MAR<-stk5+T, :pushMD; 

MAR*-stk6+T, :pushMD; 

MAR<-stk7+T, :pushMD; 



Common exit used to reset the stack pointer 

the instruction that branches here should have a 'TASK' 
Setstkp must be odd, StkOflw used by PUSH 



!17,ll,Setstkp, ,.,,,. .StkOflw; 
Setstkp: stkp*-L, :next; 
StkOflw: :dpushofl; 



branch (1) may be pending 
honor TASK, dpushofl is odd 



Stack Underflow Handling 



StkUf : 



T^sStackUnderflow, :KFCr; 



catches dispatch of stkp = -1 
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Store dispatch: 

pops TOS to MD. 

called from many places. 

dispatches on old stkp, so MDpopO = 1 mod 20B. 

The invoking instruction must load MAR and may optionally keep ball 1 
in the air by having a branch pending. That is. entry at 'StoreB' will 
cause control to pass to 'next', while entry at 'StoreA' will cause 
control to pass to 'nextA'. 



l,2,StoreBa,StoreAa; 

17,20,MDpopuf ,MDpop0,MDpopl,MDpop2,MDpop3,MDpop4,MDpop5,MDpop6,MDpop7, 



StoreB: 
StoreBa: 
StoreA: 
StoreAa: 



MDpopO 
MDpopl 
MDpop2 
MDpopS 
MDpop4 
MDpop5 
MDpop6 
MDpop7 



L«-stkp-l, BUS; 

stkp*-L, TASK, :MDpopuf; 

L<-stkp-l, BUS; 

Stkp<-L. BUS = 0, TASK, :MDpopuf; 



keep branch (1) alive 



MD<-stk0. 


:next 


MD<-stkl, 


:next 


MD<-stk2, 


:next 


MD<-stk3. 


:next 


MD^stk4, 


:next 


MD<-stk5, 


:next 


MD*-stk6, 


:next 


MD<-stk7, 


:next 



Double-word pop dispatch: 

picks up alpha from ib, adds it to T, then pops stack into result and 

result+1 
entry at 'Dpopa' substitutes L for ib. 
returns to 'nextA' <=> ib = or entry at 'Dpop' 



!17,20,dpopuf2,dpopuf I,dpopl,dpop2,dpop3,dpop4,dpop5,dpop6,dpop7, 
!l,l,Dpopb; 



required by placement of 
MDpopuf only. 



Dpop: 
MDpopuf: 



Dpopa: 

Dpopb: 
dpopuf2: 



L*-T<-ib+T+l; 
IR^O. :Dpopb; 



L<-T^M+T+1; 
IR<-ib, :Dpopb 
MAR*-T. temp<-L 
Ustkp-1, BUS 
stkp^L, TASK, 



Note: MDpopuf is merely a 
convenient label which leads 
to a BUS dispatch on stkp in 
the case that stkp is -1. It 
is used by the Store dispatch 
above. 



:dpopuf2; 



dpopufl: 

dpopl: 

dpop2: 

dpop3: 

dpop4: 

dpop5: 

dpop6: 

dpop7: 



:StkUf ; 

MD^Stkl, :Dpopx; 

MD<-stk2, :Dpopx; 

MD*-stk3, :Dpopx; 

MD<-stk4, :Dpopx; 

MD^stkS. :Dpopx; 

MD<-stk6, :Dpopx; 

MD<-stk7, :Dpopx; 



stack underflow, honor TASK 



Dpopx: 
MAStkT: 



SINK<-DISP, BUS = 0; 
MAR<-temp-l, :StoreB; 
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Get operation-specific code from other files 



#Mesac.mu; 
^Mesad.mu; 
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MesabROM.Mu - Registers, miscellaneous symbols and constants 
Last modified by Levin - November 5, 1979 3:17 PM 



R memories used by code in ROMO » correct to AltoCode23.Mu 



Nova Emulator Registers (some used by Mesa as well) 



$AC3 


$R0; 


$MASK1 


$R0; 


$AC2 


$R1; 


$AC1 


$R2; 


$YMUL 


$R2; 


$RETN 


$R2; 


$ACO 


$R3; 


$SKEW 


$R3; 


$NWW 


$R4; 


$SAD 


$R5; 


$CYRET 


$R5; 


$TEMP 


$R5; 


$PC 


$R6; 


$XREG 


$R7; 


$CYCOUT 


$R7; 


$WIDTH 


$R7; 


SPLIER 


$R7; 


$XH 


$R10 


$DESTY 


$R10 


$W0RD2 


$R10 


$DWAX 


$R35 


SSTARTBITSMl 


$R35 


$MASK 


$R36 


$SWA 


$R36 


$DESTX 


$R36 


$LREG 


$R40 


$NLINES 


$R41 


$RAST1 


$R42 


$SRCX 


$R43 


$SKMSK 


$R43 


$SRCY 


$R44 


$RAST2 


$R44 


$CONST 


$R45 


$TWICE 


$R45 


$HCNT 


$R46 


$VINC 


$R46 


$HINC 


$R47 


SNWORDS 


$R50 


$MASK2 


$R51 
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Registers used by standard Nova I/O controllers 

All names have been prefixed with 'x' to prevent conflicts when MesabROM is 
used by XMesa clients to assemble MesaXRAM with other microcode. 



; Model 31 Disk 



SxKWDCT 


$R31 


SxKWDCTW 


$R31 


SxCKSUMR 


$R32 


SxCKSUMRW 


$R32 


SxKNMAR 


$R33 


$xKNMARW 


$R33 


SxDCBR 


$R34 


; Display 




$CURX 


$R20 


SCURDATA 


$R21 


$xCBA 


$R22 


SxAECL 


$R23 


$xSLC 


$R24 


SxMTEMP 


$R25 


SxHTAB 


$R26 


SxYPOS 


$R27 


$xDWA 


$R30 


; Ethernet 




SxECNTR 


$R12 


$xEPNTR 


$R13 


; Memory Refresh 


SxCLOCKTEMP 


$R11 


$xR37 


$R37 


; Audio (obsc 


lete) 


$xAudioWdCt 


$R71 


SxAudioData 


$R72 



Mesab .mu 



24-Jul-81 19:03:01 



Page 



Registers used by Mesa Emulator 



; R registers 




$temp 


$R35 


$temp2 


$R36 


$mpc 


$R15 


$stkp 


$R16 


SXTSreg 


$R17 



Temporary (smashed by BITBLT) 

Temporary (smashed by BITBLT) 

R register holds Mesa PC (points at word last read) 

stack pointer [0-10] empty, 10 full 

xfer trap state 

Registers shared by Nova and Mesa emulators 

Nova ACs are set explicitly by Mesa process opcodes and for ROMO calls 
Other R-registers smashed by BITBLT and other ROMO subroutines 



Sbrkbyte 



$mx 



$R0; 



$R1: 



Ssaveret 


$R2; 






$newf ield 


$R3; 




$count 


$R5; 




Staskhole 


$R7; 




$ib 


$R10; 




$clockreg 


$R37; 




; S registers, 


can't shift into 


them 


$my 


$R51; 




$lp 


$R52 






$gp 


$R53 






$cp 


$R54 






SATPreg 


$R55 






SOTPreg 


$R56 






SXTPreg 


$R57 






$wdc 


$R70 


• 




; Mesa evaluation stack 




$stkO 


$R60; 




$stkl 


$R61 






$stk2 


$R62 






$stk3 


$R63 






$stk4 


$R64 






$stk5 


$R65 






$stk6 


$R66 






$stk7 


$R67 






; Miscellaneous 


S registers 




$mask 


$R41; 




Sunusedl 


$R42 






$unused2 


$R43 






$alpha 


$R44 






$index 


$R45 






Sentry 


$R46 






$f rame 


$R47 






Srighthalf 


$R41 






Slefthalf 


$R46 






$unused3 


$R50 







(ACS) bytecode to execute after a breakpoint 

Warning! brkbyte must be reset to after ROM calls! 

(see BITBLT) 

(AC2) X register for XFER 

Warning! smashed by BITBLT and MUL/DIV/LDIV 

(ACl) R-temporary for return indices and values 

(ACQ) new field bits for WF and friends 

Warning! must be R-register; assumed safe across CYCLE 

scratch R register used for counting 
pigeonhole for saving things across TASKs 
Warning! smashed by all ROM calls! 
instruction byte, if none (0,,byte) 
Warning! smashed by BITBLT 
low-order bits of real-time clock 

BUS not zero while storing. 

y register for XFER 
local pointer 
global pointer 
code pointer 

allocation trap parameter 
other trap parameter 
xfer trap parameter 
wakeup disable counter 



stack (bottom) 

stack 

stack 

stack 

stack 

stack 

stack 

stack (top) 



used by string instructions, among others 

not safe across call to BITBLT 

not safe across call to BITBLT 

alpha byte (among other things) 

frame size index (among other things) 

allocation table entry address (among other things) 

allocated frame pointer (among other things) 

right 4 bits of alpha or beta 

left 4 bits of alpha or beta 

not safe across call to BITBLT 
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Mnemonic constants for subroutine return indices used by BUS dispatch. 



$retO 

$retl 

$ret2 

$ret3 

$ret4 

$ret5 

$ret6 

$ret7 

SretlO 

Sretll 

$retl2 

SretlS 

$retl4 

$retl5 

$retl6 

$retl7 

$ret20 

$ret21 

$ret22 

$ret23 

$ret24 

$ret25 

$ret26 

$ret27 

$ret30 

$ret31 

$ret37 



$10,12000,100; 

$1; 

$2 

$3 

$4 

$5 

$6 

$7 

$10 

$11 

$12 

$13 

$14 

$15 

$16 

$17 

$20 

$21 

$22 

$23 

$24 

$25 

$26 

$27 

$30 

$31 

$37 



zero is always special 
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Mesa Trap codes - index into sd vector 



$sBRK 

SsStackError 

SsStackUnderflow 

SsStackOverflow 

SsXferTrap 

SsAllocTrap 

SsControlFauU 

SsSwapTrap 

SsUnbound 

SsBoundsFault 

SsPointerFauH 

SsBoundsFaultml 



$10,12000,100; 

$2; 

$2 

$2 

$4 

$6 

$7 

$10 

$13 

$20 

$21 

$17 



Breakpoint 

(trap handler distinguishes underflow from 
overflow by stkp value) 



must equal sBoundsFaul t+1 
must equal sBoundsFault-1 



Low- and high-core address definitions 



$HardMRE $20; 
$CurrentState $23; 

$NovaDVloc $25; 

$avml $777; 

$sdoffset $100; 

$gftml $1377; 

$BankReg $177740; 



location which forces MRE to drop to Nova code 

location holding address of current state 

dispatch vector for Nova code 

base of allocation vector for frames (-1) 

offset to base of sd from av 

base of global frame table (-1) 

address of emulator's bank register 



Constants in ROM, but with unpleasant names 



$12 


$12; 


$-12 


$177766 


$400 


$400; 



for function calls 
for Savestate 
for JB 



Frame offsets and other software/microcode agreements 



$lpoffset 


$6; 


$nlpoffset 


$177771; 


$nlpoffsetl 


$177770; 


$pcoffset 


$1; 


$npcoff$et 


$5; 


$retlinkoffset 


$2; 


$nretlinkoffset 


$177774; 


$gpoffset 


$4; 


$ngpoffset 


$177773; 


$gfioffset 


$10,12000,100 


$ngf ioffset 


$4; 


$cpoffset 


$1; 


$gpcpoffset 


$2; 


$gfimask 


$177600; 


$enmask 


$37; 



local frame overhead + 2 

= -(Ipoffset + 1) 

= -{Ipoffset + 2) 

offset from local frame base to saved pc 

= -(lpoffset+1+pcoffset) [see Savpcinf rame] 

offset from local frame base to return link 

= -(Ipoffset-retlinkoffset) 

global frame overhead + 1 

= -(gpoffset + 1) 

offset from global frame base to gfi word (=0) 

= gpoffset-gfioffset [see XferGfz] 

offset from global frame base to code pointer 

offset from high code pointer to global 1 

mask to isolate gfi in global frame word 
mask to isolate entry number/4 



Symbols to be used instead of ones in the standard definitions 



$mACSOURCE 

$msr0 

$BUSAND~T 



$1024016,000000,000000 
$1000000,012000,000100 
$1000000,054016,000040 



sets only F2. ACSOURCE also sets BS and RSEL 
IDISP => 0, no JR^ dispatch, a 'special' zero 
sets ALUF = 15B, doesn't require defined bus 
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Linkages between ROMl and RAM for overflow microcode 



; Fixed locations in ROMl 



Sromnext 

SromnextA 

Sromlntstop 

SromUntail 

SromMgo 

SromXfer 



$1004400,0,0 
$1004401,0,0 
$1004406,0,0 
$1004407,0,0 
$1004420,0,0 
$1004431,0,0 



must correspond to next 
must correspond to nextA 
must correspond to Intstop 
must correspond to Untail 
must correspond to Mgo 
must correspond to Xfer 



Fixed locations in RAM 



$ramBLTloop $1004403,0,0 
$ramBLTint $1004405,0,0 
$ramOverflow $1004410,0,0 



must correspond to BLTloop 
must correspond to BLTint 
RR. BLTL, WR 
DADD, DSUB, DCOMP, DUCOMP 
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Mesac.Mu - Jumps, Load/Store, Read/Write, Binary/Unary/Stack Operators 
Last modified by Johnsson - July 20, 1979 8:59 AM 



Jumps 



The following requirements are assumed: 

1) J2-J9, JB are usable (in that order) as subroutine 
returns (by JEQx and JNEx). 

2) since J2-J9 and JB are opcode entry points, 

they must meet requirements set by opcode dispatch. 



Jn - jump PC-relative 



!1.2,JnA,Jbranchf ; 



J2 
J3 
J4 
J5 
J6 
J7 
J8 
J9 



L<-ONE 


:JnA 


L<-2. 


JnA 




L<-3, 


JnA 




L*-4, 


JnA 




L^5, 


JnA 




L*-6, 


JnA 




L<-7, 


JnA 




L^IO, 


:Jn/ 


\; 



JnA: 



L*-M-l, :Jbranchf; 



A-aligned - adjust distance 



JB - jump PC-relative by alpha, assuming: 
JB is A-aligned 
Note: JEQB and JNEB come here with branch (1) pending 



1,1. JBx; 
l,l,Jbranch; 



shake JEQB/JNEB branch 

must be odd (shakes IR^ below) 



JB: 
JBx: 



T*-ib, :JBx; 

L*-400 OR T; 

IR<-M; 

L<-DISP-1, :Jbranch; 



♦-DISP will do sign extension 
400 above causes branch (1) 
L: ib (sign extended) - 1 



JW - jump PC-relative by alphabeta, assuming: 
if JW is A-aligned, B byte is irrelevant 
alpha in B byte, beta in A byte of word after JW 



JW: 
JWr: 



IR^srl, :FetchAB; 
L<-ALLONES+T, :Jbranch; 



returns to JWr 
L: alphabeta-1 



; Jump destination determination 

; L has (signed) distance from even byte of word addressed by mpc+1 



!l,2,Jforward,Jbackward; 
!l,2,Jeven,Jodd; 



* Jbranch: 
Jbranchf : 

Jf onward: 
Jbackward: 

Jeven: 
Jodd: 



T<-0+l, SH<0; 

SINK*-M, BUSODD, TASK, :Jforward; 

temp*"L RSH 1, : Jeven; 
temp<-L MRSH 1, :Jeven; 



T*-temp+l, 
T^temp+1 , 



:NOOP; 
:nextXB; 



dispatch fwd/bkwd target 
dispatch even/odd target 

stash positive word offset 
stash negative word offset 

fetch and execute even byte 
fetch and execute odd byte 
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JZEQB - if TOS (popped) = 0, jump PC-relative by alpha, assuming: 
stack has precisely one element 
JZEQB is A-aligned (also ensures no pending branch at entry) 



!1,2, Jcz.Jco; 

JZEQB: SINK^-stkO, BUS = 0; test TOS = 

L*-stkp-l, TASK, :Jcz; 



JZNEB - if TOS (popped) ~= 0, jump PC-relative by alpha, assuming: 
stack has precisely one element 
JZNEB is A-aligned (also ensures no pending branch at entry) 



!l,2,JZNEBne,JZNEBeq; 

JZNEB: SINK^stkO, BUS=0; test TOS = 

L<-stkp-l, TASK, :JZNEBne; 

JZNEBne: stkp*-L, :JB; branch, pick up alpha 

JZNEBeq: stkp<-L, :nextA; no branch, alignment => nextA 
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; JEQn - if TOS (popped) = TOS (popped), jump PC-relative by n, assuming: 
; stack has precisely two elements 



!1,2 


JEQnB 


,JEOr 


lA; 






!7,1 


JEQNIE 


Dom; 








JE02 






IR-srO, 


L^T, 


JEQnB 


JEQ3 






IR<-srl, 


L<-T, 


JEQnB 


JE04 






IR<-sr2. 


L^T, 


JEQnB 


JEQ5 






IR<-sr3, 


L<-T, 


JEQnB 


JEQ6 






IR^sr4, 


L<-T, 


JEQnB 


JEQ7 






IR*-sr5, 


L<-T, 


JEQnB 


JEQ8 






IR<-sr6, 


L<-T. 


JEQnB 


JE09 






IR^sr7, 


L*-T, 


JEQnB 



shake IR<- dispatch 



returns 


to 


J2 


returns 


to 


J3 


returns 


to 


J4 


returns 


to 


J5 


returns 


to 


J6 


returns 


to 


J7 


returns 


to 


J8 


returns 


to 


J9 



JEQB - if TOS (popped) = TOS (popped), jump PC-relative by alpha, assuming: 
stack has precisely two elements 
JEQB is A-aligned (also ensures no pending branch at entry) 



JEQB: 



IR*-srlO, :JEQnA; 



returns to JB 



JEQ common code 



!l,2.JEQcom,JNEcom; 



JEQnB: 
JEQnA: 



temp^L RSH 1, L^T, :JEQNEcom; 
temp«-L, L^T, :JEQNEcom; 



!l,2,JEQne,JEQeq; 

JEQcom: L*-stkp-T-l, :JEQne; 



JEQne: 
JEQeq: 



SINK<-temp, BUS, TASK, :Setstkp; 
stkp<-L, IDISP, :JEQNExxx; 



return points from JEQNEcom 

temp:0, L:l (for JEQNEcom) 
temp:l, L:l (for JEQNEcom) 



L: old stkp - 2 

no jump, reset stkp 

jump, set stkp, then dispatch 



JEQ/JNE common code 



!7,1, JEQNEcom; 

!1. 2. JEQcom, JNEcom; 



appears above with JEQn 
appears above with JEQB 



JEQNEcom: 



T^stkl; 

L<-stkO-T, SH = 0; 
T*-0+l. SH = 0, :JEQcom; 



dispatch EQ/NE 

test outcome and return 



JEQNExxx: 



SINK^-temp, BUS, :J2; 



even/odd dispatch 
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JNEn - if TOS (popped) ~= TOS (popped), 
stack has precisely two elements 



jump PC-relative by n, assuming: 



!l,2,JNEnB,JNEnA; 



JNE2 
JNE3 
JI\IE4 
JNE5 
JNE6 
JNE7 
JNE8 
JNE9 



IR^srO, 


L-T, 


IR<-srl, 


L^T, 


IR^srZ, 


L^T, 


IR^srS, 


L<-T, 


IR^sr4, 


L^-T, 


IR<-sr5. 


L^T, 


IR*-sr6, 


L*-T. 


IR<-sr7, 


L<-T. 



JNEnB 
JNEnB 
JNEnB 
JNEnB 
JNEnB 
JNEnB 
JNEnB 
JNEnB 



returns 


to 


J2 


returns 


to 


J3 


returns 


to 


J4 


returns 


to 


J5 


returns 


to 


J6 


returns 


to 


J7 


returns 


to 


J8 


returns 


to 


J9 



JNEB - if TOS (popped) = TOS (popped), jump PC-relative by alpha, assuming: 
stack has precisely two elements 
JNEB is A-aligned (also ensures no pending branch at entry) 



JNEB: 



IR<-srlO, :JNEnA; 



returns to JB 



JNE common code 



JNEnB: 
JNEnA: 



temp^L RSH 1, L<-0. :JEQNEcom; 
temp<-L, L*-0, :JEQNEcom; 



!l,2,JNEne,JNEeq; 

JNEcom: L^stkp-T-1, 



:JNEne; 



temp:0, L:0 
temp:l, L:0 



L: old stkp - 2 



JNEne: 
JNEeq: 



Stkp*-L. IDISP, :JEQNExxx; 
SINK*-temp, BUS, TASK, :Setstkp; 



jump, set stkp, then dispatch 
no jump, reset stkp 



Mesac.mu 



24-JU1-81 19:03:01 



Page 



JrB - for r in {L,LE ,G,GE,UL,ULE .UG ,UGE} 

if TOS (popped) r TOS (popped), jump PC-relative by alpha, assuming: 
stack has precisely two elements 
JrB is A-aligned (also ensures no pending branch at entry) 



The values loaded into IR are not returns but encoded actions: 
Bit 12: => branch if carry zero 

1 => branch if carry one (mask value: 10) 
Bit 15: => perform add-complement before testing carry 

1 => perform subtract before testing carry (mask value: 1) 
(These values were chosen because of the masks available for use with ♦-DISP 
in the existing constants ROM. Note that IR<- causes no dispatch.) 



JLB: 


IR^IO, 


:Jscale; 


JLEB: 


IR^ll, 


:Jscale; 


J6B: 


IR<-ONE 


:Jscale; 


J6EB: 


IR*-0. 


Jscale; 


JULB: 


IR<-10, 


: Jnoscale; 


JULEB: 


IRoll. 


:Jnoscale; 


JUGB: 


IR<-ONE 


:Jnoscale 


JUGEB: 


IR<-0. 


Jnoscale; 



adc, branch if carry one 

sub, branch if carry one 

sub, branch if carry zero 

adc, branch if carry zero 

adc, branch if carry one 

sub, branch if carry one 

sub, branch if carry zero 

adc, branch if carry zero 



Comparison "subroutine": 



1,2, Jade, Jsub; 

!l,2,Jcz,Jco; 

l,2,Jnobz,Jbz; 

l,2,Jbo,Jnobo; 



appears above with JZEQB 



Jscale: T^77777, :Jadjust; 
Jnoscale: T<-ALLONES, :Jadjust; 

Jadjust: L<-stkl+T+l; 
temp<-L; 

SINK^DISP, BUSODD; 
T*-stk0+T+l, :Jadc; 



Jade: 
Jsub: 

J common: 



Jcz: 
Jco: 

Jnobz: 
Jbz: 
Jbo: 
Jnobo: 



L*-temp-T-l, :Jcommon; 
L<-temp-T, :Jcommon; 

T*-0NE; 

L<-stkp-T-l, ALUCY; 

SINK*-DISP, SINK<-lgmlO, BUS = 0, TASK, :Jcz; 

stkp<-L, :Jnobz; 
Stkp<-L, :Jbo; 

L<-mpc+l, TASK, :nextAput; 

T^ib, :JBx; 

T^ib, :JBx; 

L*-mpc+l, TASK, :nextAput; 



L:stkl + (0 or 100000) 
dispatch ADC/SUB 



perform add complement 
perform subtract 

warning: not T<-0+l 
test ADC/SUB outcome 
dispatch on encoded bit 12 

carry is zero (stkp*-$tkp-2) 
carry is one (stkp*-stkp-2) 

no jump, al ignment=>nextAa 

jump 

jump 

no jump, al ignment=>nextAa 
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JIW - see Principles of Operation for description 
assumes : 

stack contains precisely two elements 

if JIW is A-aligned, B byte is irrelevant 

alpha in B byte, beta in A byte of word after JIW 



!1,2 
!1.1 


JIuge 
JIWx; 


,JIul 


' 




JIW: 
JIWx 






L*-stkp-T-l, TASK, 

stkp*-L; 

T*-stkO; 

L*-MAR^mpc+l; 

mpc<-L; 

L<-stkl-T-l; 

ALUCY; 

T^-MD, :JIuge; 


:JIWx; 



JIuge: 
JIul: 



L<-mpc+l, TASK, :nextAput; 

L*-cp+T, TASK; 

taskhole<-L; 

T<-taskhole; 

MAR^-stkO+T; 

NOP; 

L<-MD~1, :Jbranch; 



stkp*-stkp-2 

load alphabeta 

do unsigned compare 



out of bounds - to 'nextA' 
(removing this TASK saves a 
word, but leaves a run of 
15 instructions) 
fetch <<cp>+alphabeta+x> 

L: offset 
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Loads 



Note: These instructions keep track of their parity 



LLn - push <<lp>+n> 

Note: LL3 must be odd! 



; Note: Ip is offset by 2, hence the adjustments below 



LLO 
LLl 
LL2 
LL3 
LL4 
LL5 
LL6 
LL7 



MAR*- 


lp-T-1 


:pushMD; 


MAR^ 


lp-1, 


pushMD; 


MAR*- 


Ip. :pi 


JShMD; 


MAR^ 


Ip+T, 


pushMD; 


MAR*- 


lp+T+1 


, :pushMD; 


T<-3, 


SH=0, 


:LL3; 


T<-4, 


SH = 0. 


:LL3; 


T^5. 


SH=0. 


:LL3; 



pick up ball 1 
pick up ball 1 
pick up ball 1 



LIB - push <<lp>+alpha> 



LLB: 
LLBr: 



IR*-sr4, :6etalpha; 
T*-nlpoffset+T+l, SH = 0. :LL3; 



returns to LLBr 

undiddle Ip, pick up ball 1 



LLDB - push <<lp>+alpha>, push <<lp>+alpha+l> 

LLDB is A-aligned (also ensures no pending branch at entry) 



LLDB: T*-lp, :LDcommon; 

LDcommon: T<-nlpoff set+T+1 , :Dpush; 
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LGn 



push <<gp>+n> 

Note: LG2 must be odd! 



Note: gp is offset by 1, hence the adjustments below 



LGO 
LGl 
LG2 
LG3 
LG4 
LG5 
LG6 
LG7 



MAR<-gp-l, :pushMD; 
MAR*-gp, :pushMD; 
MAR<-gp+T, :pushMD; 
MAR^gp+T+1, :pushMD; 
T^3, SH=0. :LG2 
T<-4, SH = 0, :LG2 
T<-5, SH = 0, :LG2 
T<-6, SH=0, :LG2 



pick up ban 1 
pick up ball 1 
pick up ban 1 
pick up ban 1 



LGB - push <<gp>+a1pha> 



LGB: 
LGBr: 



IR<-sr5, :Getalpha; 
T<-ngpoffset+T+l, SH=0, :LG2; 



returns to LGBr 

undiddle gp, pick up ban 1 



LGDB - push <<gp>+alpha>. push <<gp>+a1pha+l> 

LGDB is A-aligned (also ensures no pending branch at entry) 



LGDB: 



T<-gp+T+l, :LDcommon; 



T: gp-gpoffset+lpoffset 
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Lin - push n 
!l,2,LI0xB,LI0xA; 



keep ball 1 in air 



; Note: an BUS dispatches use old stkp value, not incremented one 



LIO 
LIl 
LI2 
LI3 
LI4 
LI5 

Lie 



LIOxB: 
LIOxA: 



L^stkp+1, BUS, :LIOxB; 
L*-stkp+l, BUS. :pushTlB; 



T<-2, 
T^3, 



pushTB; 
pushTB; 
pushTB; 
pushTB; 
pushTB; 



Stkp^L, L<-0, TASK, :pushO; 
Stkp<-L, BUS = 0, L^O, TASK, :pushO; 



BUS=0 keeps branch pending 



LINl - push -1 



LINl: 



T<-ALLONES, :pushTB; 



LINl - push 100000 



LINl: 



T^IOOOOO, :pushTB; 



LIB - push alpha 



LIB: 



IR*-sr2, :Getalpha; 



returns to pushTB 

Note: pushTlB will handle 

any pending branch 



LINB - push (alpha OR 377B8) 



LINB: 
LINBr: 



IR«-sr26, :Getalpha; 
T^177400 OR T, :pushTB; 



returns to LINBr 



LIW - push alphabeta, assuming: 

if LIW is A-aligned, B byte is irrelevant 

alpha in B byte, beta in A byte of word after LIW 



LIW: 
LlWr: 



IR<-msrO, :FetchAB; 
L*-stkp+l, BUS, :pushTlA; 



returns to LlWr 
duplicates pushTA, but 
because of overlapping 
return points, we 
can't use it 
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Stores 



; SLn - <<lp>+n><-TOS (popped) 
Note: SL3 is odd! 



; Note: Ip is offset by 2, hence the adjustments below 



SLO 
SLl 
SL2 
SL3 
SL4 
SL5 
SL6 
SL7 



MAR<-lp-T-l, :StoreB; 
MAR*-1p-l, :StoreB; 
MAR<-1p, :StoreB; 
MAR*-lp+T, :StoreB; 
MAR^lp+T+1, :StoreB; 



T<-3. SH = 0. 
T*-4. SH = 0, 
T<-5, SH = 0. 



SL3 
SL3 
SL3 



SLB - <<lp>+a1pha>'«-T0S (popped) 



SLB: 
SLBr: 



IR*-sr6. :Getalpha; 
T^n1poffset+T+l, SH=0, :SL3; 



returns to SLBr 

undiddle Ip, pick up ball 1 



SLDB - <<1p>+a1pha+l><-T0S (popped), <<1p>+alpha><-T0S (popped), assuming: 
SLDB is A-aligned (also ensures no pending branch at entry) 



SLDB: T<-lp, :SDcommon; 

SDcommon: T<-nlpoff set+T+1, :Dpop; 
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SGn - <<gp>+n><-TOS (popped) 
Note: SG2 must be odd! 



Note: gp is offset by 1, hence the adjustments below 



SGO 
SGI 
SG2 
SG3 



MAR<-gp-l, :StoreB; 
MAR<-gp. :StoreB; 
MAR^gp+T, :StoreB; 
MAR^gp+T+1. :StoreB; 



SGB - <<gp>+alpha>*-TOS (popped) 



SGB: IR<-sr7. :Geta1pha; returns to SGBr 

SGBr: T<-ngpoff set+T+1 , SH=0, :SG2; undiddle gp, pick up ball 1 



SGDB - <<gp>+alpha+l><-TOS (popped), <<gp>+alpha>*-TOS (popped), assuming: 
SGDB is A-aligned (also ensures no pending branch at entry) 



SGDB: T*-gp+T+l, :SDcommon; T: gp-gpoff set+lpoff set 
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Puts 



PLn - <<lp>+n><-TOS {stack is not popped) 
! l,l,PLcommon; drop ball 1 

; Note: Ip is offset by 2, hence the adjustments below 



PLO 
PLl 
PL2 
PL3 



MAR<-lp-T-l, SH=0. :PLcomnion; pick up ball 1 

MAR<-lp-l, SH=0, :PLcommon; 
MAR*-lp, SH=0, :PLcommon; 
MAR<-1p+T. SH = 0, :PLcommon; 



PLcommon: L<-stkp, BUS, :StoreBa; don't decrement stkp 
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;Binary operations 



; Warning! Before altering this list, be certain you understand the additional addressing 
; requirements imposed on some of these return locations! However, it is safe to add new 
; return points at the end of the list. 

!37,40,ADDr,SUBr,ANDr,ORr,XORr,MULr,DIVr,LDIVr,SHIFTr,EXCHr.RSTRr,WSTRr.WSBr,WS0r,WSFr,WFr. 
WSDBrb,WFSrb,BNDCKr., ,,; 



Binary operations common code 
Entry conditions: 

Both IR and T hold return number. (More precisely, entry at 
'BincomB' requires return number in IR, entry at 'BincomA' requires 
return number in T. ) 
Exit conditions: 

left operand in L (M), right operand in T 

stkp positioned for subsequent push {i.e. points at left operand) 
dispatch pending (for pushO) on return 
if entry occurred at BincomA, IR has been modified so 
that mACSOURCE will produce 1 



dispatches on stkp-1, so Binpopl = 1 mod 20B 

! 17.20,Binpop,Binpopl,Binpop2,Binpop3,Binpop4,Binpop5,Binpop6,Binpop7 

! 1 ,2 , BincomB, BincomA; 

!4,l,Bincomx; 



BincomB: 


L*-T^stkp-1, :Bincomx; 


Bincomx: 


stkp^L, 


L<-T; 




L*-M'l, BUS, TASK; 


Bincomd: 


temp2^L 


, :Binpop; 


BincomA: 


1^2000 OR T; 


Binpop: 


IR^M. :[ 


BincomB; 


Binpopl: 


T<-stkl; 






L*-stkO, 


:Binend; 


Binpop2: 


T^stk2; 






L<-stkl, 


:Binend; 


BinpopS: 


T^stk3; 






L^stk2, 


:Binend; 


Binpop4: 


T^stk4; 






L<-stk3, 


:Binend; 


Binpop5: 


T^stkS; 






L^stk4, 


:Binend; 


Binpopd: 


T^stk6; 






L^stkS, 


:Binend ; 


Binpop?: 


T^stk?; 






L*-stk6, 


:Binend; 


Binend: 


SINK<-DI! 


5P, BUS; 




SINK<-ter 


np2, BUS, :ADDr; 



shake IR*- in BincomA 

value for dispatch into Binpop 

L:value for push dispatch 
stash briefly 

make mACSOURCE produce 1 



perform return dispatch 
perform push dispatch 
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ADD - replace <TOS> with sum of top two stack elements 



ADD: 
ADDr: 



IR4-T*-retO, :BincomB; 

L-M+T. mACSOURCE, TASK, :pushO; 



M addressing unaffected 



ADDOl - replace stkO with <stkO>+<stkl> 



!l,l,ADD01x; 

ADDOl: 
ADDOlx: 



T<-stkl~l, :ADD01x; 
T«-stk0+T+l, SH = 0; 
L<-stkp-l, :pushTlB; 



drop ball 1 



pick up ball 1 

no dispatch => to pushO 



SUB - replace <TOS> with difference of top two stack elements 



SUB: 
SUBr: 



IR<-T*-retl, :BincomB; 

L<-M-T, mACSOURCE, TASK, :pushO; 



M addressing unaffected 



AND - replace <TOS> with AND of top two stack elements 



AND: 
ANDr: 



IR<-T*-ret2, :BincomB; 

L<-M AND T, mACSOURCE, TASK. :pushO; 



M addressing unaffected 



OR - replace <TOS> with OR of top two stack elements 



OR: 
ORr: 



IR<-T<-ret3, :BincomB; 

L<-M OR T, mACSOURCE, TASK, :pushO; 



M addressing unaffected 



XOR - replace <TOS> with XOR of top two stack elements 



XOR: 
XORr: 



IR<-T*-ret4, :BincomB; 

L^M XOR T, mACSOURCE, TASK, :pushO; 



M addressing unaffected 
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; MUL - replace <TOS> with product of top two stack elements 
; high-order bits of product recoverable by PUSH 



!7,l.MULDIVcoma; 

!l,2,GoR0MMUL,GoR0MDIV; 

!7,2,MULx,DIVx; 



MUL: 
MULr: 

MULDIVcoma: 

MULx: 
DIVx: 

MULDIVcomb: 

GoROMMUL: 
GoROMDIV: 

MULDIVret: 

MULDIVretl: 



IR*-T<-ret5, :BincomB; 
AC1<-L, L<-T, : MULDIVcoma; 

AC2*-L, L<-0, :MULx; 

ACO^L, T<-0, : MULDIVcomb; 

ACO^L, T<-0+l, BUS = 0. :MULDIVcomb; 

L^MULDIVretloc-T-1. SWMODE, :6oR0MMUL; 

PC<-L, :ROMMUL; 
PC«-L. :ROMDIV; 

:MULDIVretl; 

T<-AC1; 

L«-stkp+l; 

L<-T. SINK*-M, BUS; 

T*-AC0, :dpush; 



shakes stack dispatch 
also shakes bus dispatch 

stash multiplicand 

stash multiplier or divisor 

ACO^O keeps ROM happy 
BUS=0 => GoROMDIV 

prepare return address 

go to ROM multiply 
go to ROM divide 

No divide - someday a trap 
perhaps, but garbage now. 
Normal return 



Note! not a subroutine 
call , but a direct 
dispatch. 



DIV - push quotient of top two stack elements (popped) 
remainder recoverable by PUSH 



DIV: 
DIVr: 



IR<-T^ret6, 
AC1*-L, L<-T, 



iBincomB ; 
BUS=0. :MULDIVcoma; 



BUS=0 => DIVx 



LDIV - push quotient of <T0S-1> . ,<T0S-2>/<T0S> (all popped) 
remainder recoverable by PUSH 



LDIV: 
LDIVf : 

LDIVr: 



IR*-sr27, :Popsub; 

AC2^L; 

IR<-T^ret7, :BincomB; 

ACl^L, L<-T. IR<-0, :DIVx; 



get divisor 

stash it 

L:low bits, T:high bits 

stash low part of dividend 

and ensure mACSOURCE of 0. 
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; SHIFT - replace <TOS> with <T0S-1> shifted by <TOS> 
; <TOS> > => left shift, <TOS> < => right shift 



!7,l,SHIFTx; 

!l,2,Lshift,Rshift; 

!l,2,DoShift,ShiftcJone; 

!l,2,DoRight.DoLeft; 

ll.l.Shiftdonex; 



shakes stack dispatch 



SHIFT: IR<-T<-retlO, :BincomB; 

SHIFTr: temp^L, L^T , TASK, :SHIFTx; 
SHIFTx: count*-L; 

L<-T<-count; 

L^O-T, SH<0; 

IR<-srl, :Lshift; 

Lshift: L*-37 AND T, TASK, :Shiftcom; 

Rshift: T^37, IR*-37; 

L^M AND T, TASK, :Shiftcom; 

Shiftcom: count*-L, :Shiftloop; 

Shiftloop: L*-count-l. BUS = 0; 

count<-L, IDISP, :DoShift; 
DoShift: L*-temp , TASK, :DoRight; 

DoRight: temp<-L RSH 1, :Shiftloop; 
DoLeft: temp*-L LSH 1, :Shift1oop; 

Shiftdone: SINK<-temp2, BUS, :Shiftdonex; 
Shiftdonex: L*-temp , TASK, :pushO; 



L: value, T: count 



L: -count, T: count 
IR*- causes no branch 

mask to reasonable size 

equivalent to IR*-msrO 
mask to reasonable size 



test for completion 



dispatch to push result 



Mesac.mu 



24-Jul-81 19:03:01 



Page 17 



Double-Precision Arithmetic 



!l,l,DSUBsub; 
!3,4.DA$tai1, , ,DCOMPr; 
!l,l,DsetStkp; 



shake B/A dispatch 
returns from DSUBsub 
shake ALUCY dispatch 



; DADD - add two double-word quantities, assuming: 
; stack contains precisely 4 elements 



!l,l,DADDx; 
!l,2,DADDnocarry,DADDcarry; 



DADD: 
DADDx: 



DADDnocarry: 
DADDcarry : 



T^StkZ, : DADDx; 
L^StkO+T; 
stkO^L, ALUCY; 
T^stk3, :DADDnocarry; 

L^stkl+T, :DASCtail; 
L^stkl+T+1, :DASCtail; 



shake B/A dispatch 



T:low bits of right operand 

L:low half of sum 

stash» test carry 

T:high bits of right operand 

L:high half of sum 
L:high half of sum 



DSUB - subtract two double-word quantities, assuming: 
stack contains precisely 4 elements 



DSUB: 



IR*-msrO, :DSUBsub; 



Double-precision subtract subroutine 



! 1 , 2 , DSUBbo rrow , DSUBnobo mow ; 
!7.1,DSUBx; 



DSUBsub: 
DSUBx: 



DSUBborrow: 
DSUBnoborrow: 



T<-stk2, :DSUBx; 
L^stkO-T; 
StkO*-L, ALUCY; 
T<-stk3, :DSUBborrow; 

L<-stkl-T-l, IDISP, :DASCtail; 
L*-stkl-T, IDISP. :DASCtail; 



shake IR^ dispatch 

T:low bits of right operand 
L:low half of difference 
borrow = ~carry 
T:high bits of right operand 

L:high half of difference 
L:high half of difference 



Common exit code 



DASCtail: stkl^L, ALUCY, :DAStail; 
DAStail: T^2 , :Dsetstkp; 



carry used by double compares 
adjust stack pointer 



Dsetstkp: 



L<-stkp-T, TASK, :Setstkp; 
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; DCOMP - compare two long integers, assuming: 

; stack contains precisely 4 elements 

; result left on stack is -1, 0, or +1 (single-precision) 

; (i.e. result = sign(stkl, ,stkO DSUB stk3,,stk2) ) 



!l,l,DCOMPxa; 

!10,l,DCOMPxb; 

! 1 , 2 , DCOMPnoca rry , DCOMPcarry ; 

!l,2,DC0MPgtr,DC0MPequal; 



DCOMP: 

DCOMPxa: 

DCOMPxb: 



IR<-T<-100000, :DCOMPxa; 
L^stkl+T. : DCOMPxb; 
Stkl<-L; 

L*-stk3+T. TASK; 
stk3^L, :DSUBsub; 



shake B/A dispatch 
shake IR*- dispatch 



IR*-msr0, must shake dispatch 
scale left operand 

scale right operand 

do DSUB, return to DCOMPr 



DCOMPr: 

DCOMPnocarry: 
DCOMPcarry: 

DCOMPsetT: 

DCOMPgtr: 
DCOMPequal : 



T<-stkO, : DCOMPnocarry; 

L*-0-l. BUS = 0. :DCOMPsetT; 

L^M OR T; 

SH = 0; 

T*-3, : DCOMPgtr; 

L*-0+l, :DCOMPequal; 
stkO<-L, :Dsetstkp; 



L: stkl, ALUCY pending 

left opnd < right opnd 
L: stkO OR stkl 

T: amount to adjust stack 

left opnd > right opnd 
stash result 



DUCOMP " compare two long cardinals, assuming: 

stack contains precisely 4 elements 

result left on stack is -1, 0, or +1 (single-precision) 

(i.e. result = sign(stkl , ,stkO DSUB stk3,,stk2) ) 



DUCOMP : 



IR^sr3, :DSUBsub; 



returns to DCOMPr 



Mesac.mu 24-Jul-81 19:03:01 Page 19 



Range Checking 



NILCK - check TOS for NIL (0), trap if so 

!l,2,InRange,0ut0fRange; 

NILCK: L<-retl7, :Xpopsub; returns to NILCKr 

NILCKr: T^ONE, SH=0, :NILCKpush; test TOS=0 

NILCKpush: L<-stkp+T, :InRange; 

InRange: SINK*-ib, BUS = 0, TASK, :Setstkp; pick up ball 1 

OutOfRange: T<-sBoundsFaultml+T+l, :KFCr; T:SD index; go trap 



BNDCK - check subrange inclusion 

if TOS-1 -IN [O..TOS) then trap (test is unsigned) 
only TOS is popped off 



!7,l,BNDCKx; shake push dispatch 

BNDCK: IR<-T«Tet22 , :BincomB; returns to BNDCKr 

BNDCKr: L^M-T, :BNDCKx; L: value. T: limit 

BNDCKx: T^O, ALUCY, :NILCKpush; 
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Reads 



Note: RBr must be odd! 



Rn - TOS<-<<TOS>+n> 



RO 
Rl 
R2 
R3 
R4 



T<-0, SH = 0, 


:RBr; 


T^ONE. SH=0 


, :RBr 


T^2, SH=0, 


:RBr; 


T*-3, SH=0, 


:RBr; 


T^4, SH=0. 


:RBr; 



RB - TOS*-<<TOS>+alpha>, assuming: 



!1.2,ReadB,ReadA; 



RB: 
RBr: 

ReadB: 
ReadA: 



IR<-srl5. :Getalpha; 
L*-stkp-l, BUS. :ReadB; 

Stkp<-L, :MAStkT; 
stkp^L, BUS=0, :MAStkT; 



keep ban 1 in air 
returns to RBr 



to pushMD 
to pushMDA 



RDB - temp*-<T0S>+a1pha, push <<temp>>, push <<temp>+l>, assuming: 
RDB is A-aligned (also ensures no pending branch at entry) 



RDB: 



IR<-sr30, :Pop$ub; 



returns to Dpush 



RDO - temp^<TOS>, push <<temp>>, push <<temp>+l> 



RDO: 
RDOr: 



IR<-sr32, :Popsub; 
L*-0, :Dpusha; 



returns to RDOr 
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RILP - push <<<lp>+alpha[0-3]>+a1pha[4-7]> 



RILP: 
RILPr: 



L<-retO, rSplitalpha; 
T^-lp, iRIPcom; 



get two 4-bit values 
Tiaddress of local 2 



RIGP - push <<<gp>+alpha[0-3]>+alpha[4-7]> 



!3,l,IPcom; 

RIGP: 
RIGPr: 

RIPcom: 

IPcom: 

IPcomx: 



L*-retl, :Splitalpha; 
T*-gp+l, :RIPcom; 

IR<-msrO, : IPcom; 

T<-3+T+l; 
MAR*-lefthalf+T; 
L<-righthalf ; 
T^MD, IDISP; 
MAR*-M+T, :pushMD; 



shake IR*- at WILPr 

get two 4-bit values 
T:address of global 2 

set up return to pushMD 

T:address of local or global 
start memory cycle 

T:local/global value 
start fetch/store 



RILO - push <<<lp>>> 



!1.2,RILxB,RILxA; 

RILO: MAR*-lp-T-l, :RILxB; 



RILxB: 
RILxA: 



IR*-msrO, L*-0, : IPcomx; 
IR^srl, L<-srl AND T, :IPcomx; 



fetch local 

to pushMD 

to pushMDA, L*-0( ! ) 



RXLP - TOS^<<TOS>+<<lp>+alpha[0-3]>+alpha[4-7]> 



RXLP: 

RXLPra: 

RXLPrb: 



L*-ret3, :Splitalpha; 
IR<-sr34, :Popsub; 
L^righthalf+T, TASK; 
righthalf^-L, :RILPr; 



will return to RXLPra 
fetch TOS 
L:TOS+alpha[4-7] 
now act like RILP 
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Writes 



Wn - <<TOS> (poppecl)+n>*-<TOS> (popped) 



!l,2,WnB.WnA; 



WO 
Wl 
W2 



WnB: 
WnA: 



T^O. :WnB; 
T-ONE, :WnB; 
T<-2, :WnB; 

IR<-sr2, :Wsub; 

IR^sr3, :Wsub; 



keep ball 1 in air 



returns to StoreB 
returns to StoreA 



Write subroutine: 
!7,l,Wsubx; 



Wsub: 
Wsubx: 



L*-stkp-l, BUS, :Wsubx; 
stkp<-L, IDISP, :MAStkT; 



shake IR^ dispatch 



WB - <<TOS> {popped)+alpha>^<TOS-l> (popped) 



WB: 
WBr: 



IR<-srl6, :Getalpha; 
:WnB; 



returns to WBr 
branch may be pending 



WSB - act like WB but with stack values reversed, assuming: 

WSB is A-aligned (also ensures no pending branch at entry) 



!7,l,WSBx; 

WSB: 
WSBr: 

WSBx : 

WScom: 

WScoma: 



IR<-T<-retl4, :BincomA; 
T<-M, L<-T, :WSBx; 

MAR<-ib+T, : WScom; 

temp<-L; 

L<-stkp-l; 

MD<-temp; 

mACSOURCE, TASK, :Setstkp; 



shake stack dispatch 
alignment requires BincomA 



WSO - act like WSB but with alpha value of zero 
!7,l.WS0x; 



WSO: 
WSOr: 



IR<-T<-retl5, :BincomB; 
T*-M, L<-T, :WSOx; 



shake stack dispatch 



WSOx: 



MARoT, : WScom; 
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WILP - <<lp>+alpha[0-3]>+alpha[4-7] *- <TOS> (popped) 



WILP: 
WILPr: 



L<-ret2, :$plita1pha; 

IR<-sr2; 

T<-lp, :IPcom; 



get halves of alpha 
IPcom will exit to StoreB 
prepare to undiddle 



WXLP - <TOS>+<<1p>+alpha[0-3]>+a1pha[4-7] <- <T0S-1> (both popped) 



WXLP: 

WXLPra: 

WXLPrb: 



L^ret4, :Splitalpha; 
IR<-sr35, :Popsub; 
L<-righthalf+T, TASK; 
righthalf<-L, :WILPr; 



get halves of alpha 
fetch TOS 
L:T0S+alpha[4"7] 
now act 1 ike WILP 



WDB - temp<-alpha+<TOS> (popped), pop into <temp>+l and <temp>, assuming: 
WDB is A-aligned (also ensures no pending branch at entry) 



WDB: 



IR<-sr31, :Popsub; 



returns to Dpop 



WDO - temp«-<TOS> (popped), pop into <temp>+l and <temp> 



WDO: 
WDOr: 



L<-ret6. TASK, :Xpopsub; 
L<-0, :Dpopa; 



returns to WDOr 



WSDB - like WDB but with address below data words, assuming: 

WSDB is A-aligned (also ensures no pending branch at entry) 



!7,l,WSDBx; 




WSDB: 


IR<-sr24, :Popsub; 


WSDBra: 


saveret<-L; 




IR*-T<-ret20, :BincomA 


WSDBrb: 


T^M, L<-T, : WSDBx; 


WSDBx: 


MAR^T^ib+T+1; 




temp*-L, L*-T; 




temp2^L, TASK; 




MD«-saveret; 




MAR<-temp2-l, :WScoma 



get low data word 

stash it briefly 

alignment requires BincomA 

L:high data, T:address 

start store of low data word 

temp:high data 

temp2: updated address 

stash low data word 

start store of high data word 
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Unary operations 



INC - TOS <- <T0S>+1 



INC: IR^srl4, :Popsub; 

INCr: T*-0+T+l, :pushTB; 



NEC - TOS ^ -<TOS> 



NEG: L^retll. TASK, :Xpopsub; 

NEGr: L^O-T, :Untail; 



DBL - TOS *- 2*<T0S> 



DBL: IR^sr25. :Popsub; 

DBLr: L<-M+T , :Untail; 



Unary operation common code 
Untail: T<-M, :pushTB; 
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Stack and Miscellaneous Operations 



PUSH - add 1 to stack pointer 



!l,l.PUSHx; 

PUSH: 
PUSHx: 



L*-stkp+l, BUS. :PUSHx; 
SINK^ib, BUS=0, TASK, :Setstkp; 



BUS checks for overflow 
pick up ball 1 



POP - subtract 1 from stack pointer 



POP: 



L*-stkp-l, SH = 0. TASK, :Setstkp; 



L=0 <=> branch 1 pending 
need not check stkp=0 



DUP - temp*-<TOS> (popped), push <temp>, push <temp> 



!l.l,DUPx; 

DUP: 
DUPx: 



IR^srZ, :DUPx; 

L*-stkp, BUS, TASK, :Popsuba; 



returns to pushTB 
don't pop stack 



EXCH - exchange top two stack elements 
!l,l,EXCHx; 



EXCH: 
EXCHx: 

EXCHr: 



IR<-retll, :EXCHx; 

L<-stkp-l; 

L<-M+l. BUS, TASK, :Bincomd; 

T<-M, L<-T, :dpush; 



drop ball 1 



dispatch on stkp-1 

set temp2^stkp 

Note: dispatch using temp2 



LADRB - push alpha+lp (undiddled) 
!l,l,LADRBx: 



LADRB : 

LADRBr: 

LADRBx: 



IR^srlO, :Getalpha; 

T*-nl pof f set+T+1 , : LADRBx ; 

L^lp+T, :Untail; 



shake branch from Getalpha 
returns to LADRBr 



GADRB - push alpha+gp (undiddled] 
!l.l,GADRBx; 



GADRB: 

GADRBr: 

GADRBx: 



IR«-srll, :Getalpha; 
T*-ngpof f set+T+1 , : GADRBx ; 
L<-gp+T. :Untail; 



shake branch from Getalpha 
returns to GADRBr 
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; String Operations 



!7,l,STRsub; 

!l,2,STRsubA,STRsubB; 

!1.2,RSTRrx,WSTRrx; 



STRsub: 



STRsubA: 
STRsubB: 

STRsubcom: 



L<-stkp-l; 

stkp*-L; 

L^ib+T; 

SINK^M, BUSODD, TASK; 

count<-L RSH 1, :STRsubA; 

L+-177400, :STRsubcom; 
L^377, :STRsubcom; 

T*-temp; 

MAR<-count+T; 

T*-M; 

SINK^DISP, BUSODD; 

mask<-L. SH<0, :RSTRrx; 



shake stack dispatch 

update stack pointer 
compute index and offset 



left byte 
right byte 

get string address 

start fetch of word 

move mask to more useful place 

dispatch to caller 

dispatch B/A, mask for WSTR 



RSTR - push byte of string using base {<T0S-1>) and index (<TOS>; 
assumes RSTR is A-aligned (no pending branch at entry) 



!1,2,RSTRB,RSTRA; 

RSTR: IR*-T^retl2, :BincomB; 

RSTRr: temp«-L, :STRsub; 

RSTRrx: L^MD AND T, TASK, :RSTRB; 

RSTRB: temp<-L, ;RSTRcom; 

RSTRA: temp<-L LCY 8» :RSTRcom; 

RSTRcom: T<-temp, :pushTA; 



stash string base address 
isolate good bits 



right-justify byte 
go push result byte 



WSTR - pop <T0S-2> into string byte using base (<T0S-1>) and index (<TOS>) 
assumes WSTR is A-aligned (no pending branch at entry) 



!1,2,WSTRB,WSTRA; 



WSTR: 

WSTRr: 

WSTRrx: 

WSTRB: 
WSTRA: 

WSTRrA: 
WSTRrB: 



IR<-T<-retl3, :BincomB; 

temp<-L, :STRsub; 

L<-MD AND NOT T, : WSTRB; 

temp2<-L, L<-retO, TASK, :Xpopsub; 
temp2*-L, L<-retO+l, TASK, rXpopsub; 

taskhole^L LCY 8; 
T«-taskhole, :WSTRrB; 

T<-mask.T; 

L^temp2 OR T; 

T^temp; 

MAR<-count+T; 

TASK; 

MD<-M, ; next A; 



stash string base 
isolate good bits 

stash them, return to WSTRrB 
stash them, return to WSTRrA 

move new data to odd byte 



retrieve string address 
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Field Instructions 



!l,2,RFrr,WFrr; 

!7,l,Fieldsub; 

; !7,l,WFr; (required by WSFr) is implicit in retl7 (!) 



returns from Fieldsub 
shakes stack dispatch 



RF - push field specified by beta in word at <TOS> (popped) + alpha 
if RF is A-aligned, B byte is irrelevant 
alpha in B byte, beta in A byte of word after RF 



RF: 

RFr: 

RFrr: 



IR*-srl2, :Popsub; 
L*-retO, :Fieldsub; 
T<-mask.T, :pushTA; 



alignment requires pushTA 



WF - pop data in <T0S-1> into field specified by beta in word at <TOS> (popped) + alpha 
if WF is A-aligned, B byte is irrelevant 
alpha in B byte, beta in A byte of word after WF 



! 1,2 ,WFnzct ,WFret ; - see location-specific definitions 



WF: 
WFr: 

WFrr: 



WFnzct: 
WFret: 



IR<-T«-retl7. :BincomB; 
newfield<-L, L«-retO+l, :Fieldsub; 

T^mask; 

L<-M AND NOT T; 

temp«-L; 

T«-newf ield.T; 

L^temp OR T, TASK; 

CYCOUT^L; 

T^index, BUS=0; 

L«-WFretloc, :WFnzct; 

PC<-L; 

L«-20-T, SWMODE; 

T«-CYCOUT, :RAMCYCX; 

MAR<-f rame; 

L<-stkp-l; 

MD<-CYCOUT, TASK, :JZNEBeq; 



L:new data, T:address 
(actually, L^-retl) 



set old field bits to zero 

stash result 

save new field bits 

merge old and new 

stash briefly 

get position, test for zero 

get return address from ROM 

stash return 

L: remaining count to cycle 

go cycle remaining amount 

start memory 

pop remaining word 

stash data, go update stkp 



WSF - like WF, but with top two stack elements reversed 
if WSF is A-aligned, B byte is irrelevant 
alpha in B byte, beta in A byte of word after WSF 



WSF: 
WSFr: 



IR<-T*-retl6, :BincomB; 
L<-T, T<-M, :WFr; 



L:address, T:new data 
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RFS - like RF, but with a word containing alpha and beta on top of stack 
if RFS is A-aligned, B byte is irrelevant 



RFS: 
RFSra; 

RFSrb: 



L<-retl2, TASK, :Xpopsub; 

temp<-L; 

L*-retl3, TASK, :Xpopsub; 

L*-retO, BUS = 0, :Fie1dsub; 



get alpha and beta 

stash for WFSa 

T:address 

returns quickly to WFSa 



WFS - like WF, but with a word containing alpha and beta on top of stack 
if WFS is A-aligned, B byte is irrelevant 



!l,2.Fieldsuba,WFSa; 



WFS: 
WFSra: 

WFSrb: 
WFSa: 



TASK, :Xpopsub; 
:BincomB; 



L<-retl4, 

temp<-L; 

IR<-T<-ret21, 

newf ield*-L, 

f rame<-L; 

T<-177400; 

L*-temp AND T, T*-temp , :Getalphab; 



L«-retO+l, BUS=0, :Fieldsub; 



get alpha and beta 
stash temporarily 
L:new data, T:address 
returns quickly to WFSa 
stash address 

to separate alpha and beta 
L: alpha, T:both 
returns to Fieldra 



RFC - like RF, but uses <cp>+<alpha>+<TOS> as address 
if RFC is A-aligned, B byte is irrelevant 
alpha in B byte, beta in A byte of word after RF 



RFC: 
RFCr: 



L<-retl6, TASK, :Xpopsub; 

L<-cp+T; 

T*-M, :RFr; 



get index into code segment 
T:address 
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Field instructions common code 

Entry conditions: 

L holds return offset 
T holds base address 

Exit conditions: 

mask: right-justified mask 

frame: updated address, including alpha 

index: left cycles needed to right-justify field [0-15] 

L,T: data word from location <frame> cycled left <index> bits 



Fieldsub: 
Fieldsuba: 

Fieldra: 

Fieldrb : 



Fieldrc: 



tempZ^L. L^T, IR<-msrO, TASK. :Fieldsuba; 
frame<-L, :GetalphaA; 

L<-ret5; 

saveret<-L, :Splitcomr; 

T*-righthalf ; 

MAR<-MASKTAB+T; 

T<-lefthalf+T+l; 

L<-17 AND T; 

index^L; 

L<-MD. TASK; 

mask<-L; 

T^f rame; 

L<-MAR<-ib+T; 

f rame<-L; 

L<-Fieldretloc; 

PC<-L; 

T^MD. SWMODE; 

L<-index, :RAMCYCX; 

SINK<-temp2, BUS; 

L^T^CYCOUT, :RFrr; 



stash return 
stash base address 
T: beta, ib: alpha 

get two halves of beta 

index for MASKTAB 

start fetch of mask 

L:left-cycle count 

mask to 4 bits 

stash position 

L:mask for caller's use 

stash mask 

get base address 

add alpha 

stash updated address for WF 

return location from RAMCYCX 

data word into T for cycle 
count to cycle, go do it 
return dispatch 
cycled data word in L and T 
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Mesad. Mu - Xfer, State switching, process support, Nova interface 
Last modified by Levin - January 4, 1979 2:18 PM 



Frame Allocation 



Alloc subroutine: 

allocates a frame 
Entry conditions: 

frame size index (fsi) in T 
Exit conditions: 

frame pointer in L, T, and frame 

if allocation fails, alternate return address is taken and 
temp2 is shifted left by 1 (for ALLOC) 



1 ,2, ALLOCr,XferGr; subroutine returns 

l,2,ALL0Crf ,XferGrf ; failure returns 

3,4,AllocO,Allocl,Alloc2,Alloc3; dispatch on pointer flag 

if more than 2 callers, un-comment the following pre-def inition: 
! 17 , 1 , Allocx; shake IR^ dispatch 



AllocSub: L*-avml+T+l, TASK, :Allocx; 

Allocx: entry*-L; 

L<-MAR*-entry ; 

T^3; 

L<-MD AND T, T«-MD; 

temp<-L, L*-MAR<-T; 

SINK*-temp, BUS; 

frame<-L, :AllocO; 



fetch av entry 

save av entry address 

mask for pointer flags 
(L*-MD AND 3, T«-MD) 
start reading pointer 
branch on bits 14: 15 



Bits 14:15 = 00, a frame of the right index is queued for allocation 



AllocO: 



L^MD, TASK; 
temp<-L; 
MAR<-entry ; 
L<-T<-frame, IDISP; 
MD<-temp, :ALLOCr; 



new entry for frame vector 
new value of vector entry 
update frame vector 
establish exit conditions 
update and return 



Bits 14:15 = 01, allocation list empty: restore argument, take failure return 



Allocl: 



L<-temp2, IDISP, TASK; 
temp2*-L LSH 1, :ALLOCrf; 



restore parameter 
allocation failed 



Bits 14:15 = 10, a pointer to an alternate list to use 



Alloc2: 
Allocp: 



temp*-L RSH 1, :Allocp; 

L*-temp. TASK; 
temp<-L RSH 1; 
T<-temp, :AllocSub; 



indirection: index^index/4 



Alloc3: 



temp<-L RSH 1, : Allocp; 



(treat type 3 as type 2) 
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Free subroutine: 

frees a frame 

Entry conditions: address of frame is in 'frame' 

Exit conditions: 'frame' left pointing at released frame (for LSTF) 



!3.4,RETr,FREEr,LSTFr, ; 
!17,l,Freex; 



FreeSub: 
Freex : 



MAR*-frame-l; 

NOP; 

T<-MD; 

L<-MAR*-avml+T+l; 

entry*-L; 

L<-MD; 

MAR^-f name; 

temp«-L, TASK; 

MD*-temp ; 

MAR<-entry ; 

IDISP. TASK; 

MD^frame, :RETr; 



FreeSub returns 
shake IR<- dispatch 

start read of fsi word 

wait for memory 

T<-index 

fetch av entry 

save av entry address 

read current pointer 

write it into current frame 

write! 

entry points at frame 

free 
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; ALLOC - allocate a frame whose fsi is specified by <TOS> (popped) 



! 1, 1 .Savpcinf rame; 

!7,10,XferGT,Xfer,Mstopr,P0RT0pc,LSTr,ALL0Crfr,,; 
! 1 . 2 , doAl 1 ocTrap , Xf erGf z ; 

ALLOC: L<-ret7, TASK, :Xpopsub; 

ALLOCrx: temp2<-L LSH 1, IR^-msrO, :AllocSub; 

ALLOCr: L^stkp+1, BUS, :pushTlB; 



(here so ALLOCrf can call it) 
return points for Savpcinf rame 
used by XferGrf 

returns to ALLOCrx 
L,T: fsi 
duplicates pushTB 



Allocation failed - save mpc, undiddle Ip, push fsi*4 on stack, then trap 



ALLOCrf: IR<-sr5, :Savpcinf rame ; 
ALLOCrfr: L*-temp2, TASK, :doAl locTrap; 



failure because lists empty 
pick up trap parameter 



Inform software that allocation failed 



>doAllocTrap: 



ATPreg*"L; 
T«-sAllocTrap, :Mtrap; 



store param. to trap proc. 
go trap to software 



FREE - release the frame whose address is <TOS> (popped) 



FREE: 
FREErx: 

FREEr: 



L^retlO, TASK. :Xpopsub; 
frame<-L, TASK; 
IR«-srl, :FreeSub; 
: next; 



returns to FREErx 
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Descriptor Instructions 



DESCB - push <<gp>+gfi offset>+2*a1pha+l (masking gfi word appropriately) 
DESCB is assumed to be A-aligned (no pending branch at entry) 



DESCB: 



DESCBcom: 



T^gp; 

T*-ngpoffset+T+l, 

MAR^gf ioffset+T; 
T<-gf imask; 
T<-MD.T; 
L<-ib+T, T^ib; 
T<-M+T+l, rpushTA; 



:DESCBcom; 



T:address of frame 

start fetch of gfi word 

mask to isolate gfi bits 

T:gfi 

L:gfi+alpha, T:alpha 

pushTA because A-aligned 



DESCBS - push <<TOS>+gfi off set>+2*alpha+l (masking gfi word appropriately) 
DESCBS is assumed to be A-aligned (no pending branch at entry) 



DESCBS: 



L<-retl5, TASK, :Xpopsub; 



returns to DESCBcom 
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Transfer Operations 



Savpcinf rame subroutine: 

stashes C-relative (mpcib) in current local frame 
undiddles Ip into my and Ip 
Entry conditions: none 
Exit conditions: 

current frame+1 holds pc relative to code segment base {+ = even, - = odd) 

Ip is undiddled 

my has undiddled Ip (source link for Xfer) 



! 1, 1 , Savpcinf rame; 

!7,10,Xfer6T,Xfer,Mstopr.PORTOpc.LSTr,ALLOCrfr, 
7, l.Savpcx ; 
l,2,Spcodd,Spceven; 



Savpcinf rame: 
Savpcx: 



Spcodd: 
Spceven: 

Spcopc: 



T*-cp, :Savpcx; 
L<-mpc-T; 
SINK*-ib. BUS = 0; 
T*-M, :Spcodd; 

L*-0-T. TASK, :Spcopc; 
L<-0+T+l, TASK, :Spcopc; 

taskhole*-L; 

L<-0; 

T<-npcoffset; 

MAR4-lp-T, T^lp; 

ib«-L; 

L<-nlpoffset+T+l; 

MD*-taskhole; 

my*-L, IDISP, TASK; 

lp*-L, :Xfer6T; 



required by PORTO 
returns (appear with ALLOC) 
shake IR*- dispatch 
pc odd or even 

code segment base 
L is code-relative pc 
check for odd or even pc 
pick up pc word addr 

- pc => odd, this word 
+ pc => even, next word 

pc value to save 

(can't merge above - TASK) 

offset to pc stash 

(MAR<-lp-npcoffset, T^lp) 

clear ib for XferG 

L:undiddled Ip 

stash pc in f rame+pcoffset 

store undiddled Ip 
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Loadgc subroutine: 

load global pointer and code pointer given local pointer or GFT pointer 
Entry conditions: 

T contains either local frame pointer or GFT pointer 

memory fetch of T has been started 

pending branch (1) catches zero pointer 
Exit conditions: 

Ip diddled (to framebase+6) 

mpc set from second word of entry (PC or EV offset) 

first word of code segment set to 1 (used by code swapper) 
Assumes only 2 callers 



!l,2,Xfer0r,Xferlr; 

! l,2,Loadgc,LoadgcTrap; 

!l,2,LoadgcOK,LoadgcNull; 

! 1,2, Loadgc I n.LoadgcSwap; 



Loadgc: 



LoadgcOK: 
Loadgcin: 



L<-lpoffset+T; 

lp*-L; 

T*-MD; 

L<-MD; 

MAR<-cpoffset+T; 

mpc^L, L<-T; 

L<-gpoffset+T, SH = 0; 

T<-MD, BUSODD, : LoadgcOK; 

MAR<-T, :LoadgcIn; 

gp^L, L*-T; 

cp^L, IDISP, TASK; 

MD*-ONE, :XferOr; 



return points 

good global frame or null 
in-core or swapped out 

diddle (presumed) Ip 

(only correct if frame ptr) 

global frame address 

2nd word (PC or EV offset) 

read code pointer 

copy g to L for null test 

diddle gp, test for null 

check for swapped out 

write into code segment 

set global frame pointer 
set code pointer 



picked up global frame of zero somewhere, call it unbound 

BUSODD may be pending 



!l,l,Stashmx; 

LoadgcMull: T*-sUnbound, :Stashmx; 



swapped code segment, trap to software 
LoadgcSwap: T«-sSwapTrap , :Stashmx; 

destination link = 
LoadgcTrap: T^sControl Paul t , :Mtrap; 
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CheckXferTrap subroutine: 

Handles Xfer trapping 
Entry conditions: 

IR: return number in DISP 

T: parameter to be passed to trap routine 
Exit conditions: 

if trapping enabled, initiates trap and doesn't return. 



3,4,Xfers.XferG,RETxr, ; returns from CheckXferTrap 

1,2, NoXf erTrap , DoXf erTrap ; 

a.l.DoXferTrapx; 

CheckXferTrap: L<-XTSreg, BUSODD; XTSreg[15] = l => trap 

SINK*-DISP. BUS, :NoXferTrap; dispatch (possible) return 

NoXferTrap: XTSreg^L RSH 1, :Xfers; reset XTSreg[15] to or 1 

DoXferTrap: L<-DISP, :DoXferTrapx; tell trap handler which case 

DoXferTrapx: XTSreg«-L LCY 8, L<-T; L:trap parameter 

XTPreg*-L; 

T<-sXferTrap, :Mtrap; off to trap sequence 



Mesad .mu 



24-Ju1"81 19:03:01 



Page 8 



Xfer open subroutine: 

decodes general destination link for Xfer 
Entry conditions: 
source 1 ink in my 
destination link in mx 
Exit conditions: 

if destination is frame pointer, does complete xfer and exits to Ifetch. 
if destination is procedure descriptor, locates global frame and entry 
number, then exits to 'XferG'. 



! 3 , 4 , Xf e rO , Xf e n , Xf e r2 . Xf e r3 ; 

Xfer: 

Xfers: 



T*-mx; 

IR<-0, :CheckXferTrap; 

L<-3 AND T; 

SINK<-M, L^T, BUS; 

SH=0, MAR^T, :Xfer0; 



destination link type 

mx[14:15] is dest link type 

extract type bits 
L:dest link, branch on type 
check for link = 0. Memory 
data is used only if link 
is frame pointer or indirect 



mx[14~15] = 00 

Destination link is frame pointer 



XferO: 
XferOr: 



IR<-msrO, :Loadgc; 
L<-T*-mpc; 



to LoadgcNull if dest link = 
offset from cp: - odd, + even 



; If 'brkbyte' --= 0, we are proceeding from a breakpoint. 

; pc points to the BRK instruction: 

; even pc => fetch word, stash left byte in ib, and execute brkbyte 

; odd pc => clear ib, execute brkbyte 

!l,2,Xdobreak,Xnobreak; 
!l,2,Xfer0B,Xfer0A; 
!l,2,XbrkB,XbrkA; 
!l,2,XbrkBgo,XbrkAgo; 



SINK^brkbyte, BUS=0; 
SH<0, L<-0, :Xdobreak; 



set up by Loadstate 
dispatch even/odd pc 



Not proceeding from a breakpoint - simply pick up next instruction 



Xnobreak: :XferOB; 

XferOB: L<-MAR*-cp+T, :nextAdeafa; 
XferOA: L^MAR<-cp-T, SH=0, :nextXBdeaf; 



fetch word, pc even 
fetch word, pc odd (1=0) 



Proceeding from a breakpoint - dispatch brkbyte and clear it 



Xdobreak: ib<-L, :XbrkB; 

XbrkB: IR<-sr20; 

L«-MAR^cp+T , : Getal phaAx ; 

XbrkA: L*-cp-T; 

mpc^L. L<-0, BUS = 0, :XbrkBr; 

XbrkBr: SINK<-brkbyte, BUS, :XbrkBgo; 

XbrkBgo: brkbyte^L RSH 1, T*-0+l, :NOOP; 
XbrkAgo: brkbyte*-L, T<-0+l, BUS = 0, :NOOP; 



clear ib for XbrkA 

here if BRK at even byte 
set up ib (return to XbrkBr) 

here if BRK at odd byte 

ib already zero (to XbrkAgo) 

dispatch brkbyte 

clear brkbyte, act like nextA 
clear brkbyte, act like next 
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mx[14-15] = 01 

Destination link is procedure descriptor: 
mx[0-8]: GFT index (gfi) 
mx[9-13]: EV bias, or entry number (en) 



Xferl: 



Xferlr: 



temp<-L RSH 1; 
count<-L MLSH 1; 
L<-count, TASK; 
count*-L LCY 8; 
L*-count, TASK; 
count<-L LSH 1; 
T<-count; 
T^1777.T; 
MAR^gftml+T+1; 
IR<-srl, :Loadgc; 

L*-temp, TASK; 
count<-L RSH 1; 
T<-count; 
T<-enmask.T; 
L<-mpc+T+l, TASK; 
count*-L LSH 1, :XferG; 



temp:ep*2+garbage 
since L=T, count<-L LCY 1; 
gfi now in 0-7 and 15 
count:gfi w/high bits garbage 

count:gfi*2 w/high garbage 

T:gfi*2 

fetch GFT[T] 

pick up two word entry into 

gp and mpc 

L:en*2+high bits of garbage 

count:en+high garbage 

T:en 

(mpc has EV base in code seg) 

count:ep*2 



mx[14-15] = 10 

Destination link is indirect: 

mx[0-15]: address of location holding destination link 



Xfer2: 



MOP; 

T*-MD. :Xfers; 



wait for memory 



mx[14-15] = 11 

Destination link is unbound: 

mx[0-15]:. passed to trap handler 



XferS: 



T«-sUnbound, :Stashmx; 
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XferG open subroutine: 

allocates new frame and patches links 

Entry conditions: 

'count' holds index into code segment entry vector 
assumes Ip is undiddled (in case of AllocTrap) 
assumes gp (undiddled) and cp set up 

Exit conditions: 

exits to instruction fetch (or AllocTrap) 



Pick up new pc from specified entry in entry vector 



XferGT: 
XferG: 


T<-count; 

IR<-ONE, :CheckXferTrap; 

T*-count; 

MAR<-cp+T; 

T<-cp-l; 




IR<-srl; 
L*-MD+T ; 
T^MD; 




mpc<-L; 

T<-377.T, :AllocSub; 



Stash source link in new frame, establishing dynamic link 



XferGr: 



MAR<-retlinkoffset+T; 
L^lpoffset+T; 
Ip^L; 
MD<-my ; 



parameter to CheckXferTrap 

index into entry vector 
fetch of new pc and fsi 
point just before bytes 
(main loop increments mpc) 
note: does not cause branch 
relocate pc from cseg base 
second word contains fsi 
new pc setup, ib already 
mask for size index 



T has new frame base 
diddle new Ip 
install diddled Ip 
source link to new frame 



Stash new global pointer in new frame (same for local call] 

MAR^T; 
T<-gpoffset; 
l*-gp-T, TASK; 
MD<-M, :nextAdeaf; 



write gp to word of frame 
offset to point at gf base 
subtract off offset 
global pointer stashed, 60! 



Frame allocation failed - push destination link, then trap 
!l,2,doAllocTrap,XferGfz; 



(appears with ALLOC) 



XferGrf: L^mx, BUS=0; 

T<-count-l, : doAllocTrap; 



pick up destination, test = 
T:2*ep+1 



if destination link is zero (i.e. local procedure call), we must first 
fabricate the destination link 



XferGfz: 



L*-T, T^ngf ioffset; 

MAR^gp-T; 

count*-L LSH 1; 

L«-count-l; 

T<-gf imask; 

T^MD.T; 

L^M+T, :doAllocTrap; 



offset from gp to gfi word 

start fetch of gfi word 

count:4*ep+2 

L:4*ep+1 

mask to save gfi only 

T:gfi 

L:gfi+4*ep+l (descriptor) 
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Getlink subroutine: 

fetches control link from either global frame or code segment 
Entry conditions: 

temp: - (index of desired link ■•- 1) 

IR: DISP field zero/non-zero to select return point (2 callers only) 
Exit conditions: 

L,T: desired control link 



l,2,EFCgetr,LLKBr; 
1,2, frame! ink.codel ink; 
7,l,Fetchlink; 



return points 
shake IR*- in KFCB 



Getlink: T^-gp; 

MAR^-T^-ngpof f set+T+1 ; 

L^temp+T, T<-temp; 

taskhole«-L; 

L<-cp+T; 

SINK^MD, BUSODD, TASK; 

temp2*-L, :framelink; 



diddled frame address 

fetch word of global frame 

L:address of link in frame 

stash it 

L:address of link in code 

test bit 15 of word zero 

stash code link address 



framelink: MAR*-taskhole, :Fetchlink; 
codelink: MAR*-temp2, :Fetchlink; 

Fetchlink: SINK<-DISP, BUS = 0; 
L^T^MD, :EFCgetr; 



fetch link from frame 
fetch 1 ink from code 

dispatch to caller 
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EFCn - perform XFER to destination specified by external link n 



!l,l,EFCr; implicit in EFCr's return number (23B) 

:EFCr; 



EFCO 


IR<-ONE, T 


<-ONE- 


1 


EFCl 


IR<-T<-ONE, 


:EFCr 


EFC2 


IR<-T<-2, : 


EFCr; 




EFC3 


IR*-T<-3. : 


EFCr; 




EFC4 


IR*-T<-4, : 


EFCr; 




EFC5 


IR<-T-5. : 


EFCr; 




EFC6 


IR^T^e. : 


EFCr; 




EFC7 


IR*-T<-7. : 


EFCr; 




EFC8 


IR*-T«-10, 


:EFCr 




EFC9 


IR<-T*-11. 


:EFCr 




EFCK 


): IR<-T^12. 


:EFCr 




EFCr 


L: IR^T*-13, 


:EFCr 




EFCi: 


>: IR<-T*-14, 


:EFCr 




EFCi: 


5: IR^T*-15, 


:EFCr 




EFCl^ 


\: IR<-T*-16, 


:EFCr 




EFCli 


): IR<-T<-17, 


:EFCr 





0th control link 
1st control link 



EFCB - perform XFER to destination specified by external link 'alpha' 
!l,l.EFCdoGetlink; shake B/A dispatch (Getalpha) 



EFCB: IR^sr23, :Getalpha; 

EFCr: L<-0-T-l, TASK, : EFCdoGetl ink; 

EFCdoGetl ink: temp*-L, :Getlink; 

EFCgetr: IR<-srl. :SFCr; 



fetch link number 
L:-(link number+1) 

stash index for Getlink 
for Savpcinf rame; no branch 



SFC - Stack Function Call (using descriptor on top of stack) 



SFC: 
SFCr: 



IR*-srl, :Popsub; 
mx*-L, :Savpcinf rame; 



get dest link for xfer 

now assume IR still has srl 

set dest link, return to Xfer 
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KFCB - Xfer using destination <<SD>+alpha> 



!l,l,KFCr; implicit in KFCr's return number (216) 
l.l.KFCx; 
!7 , 1 . Fetch! ink; appears with Getlink 



KFCB: 
KFCr: 
KFCx: 



IR*-sr21, :Geta1pha; 
IR*-avml, T^avml+T+1. :KFCx; 
MAR<-sdoffset+T, : Fetch! ink; 



shake B/A dispatch (Getalpha) 



fetch alpha 

DISP must be non zero 

Fetchlink shakes IR*- dispatch 



BRK - Breakpoint (equivalent to KFC 0) 



BRK: 



ib*-L, T<-sBRK, :KFCr; 



ib = <=> BRK B-aligned 



Trap sequence: 

used to report various faults during Xfer 
Entry conditions: 

T: index in SD through which to trap 

Savepcinf rame has already been called 
entry at Stashmx puts destination link in OTPreg before trapping 



!l,l.Stashmx; above with Loadgc code 



Stashmx: 

Mtrap: 

Mtrapa: 



L<-mx ; 

OTPreg^L, :Mtrap; 

T^avml+T+1; 

MAR^sdoffset+T; 

NOP; 

L<-MD, TASK; 

mx^L, :Xfer; 



can't TASK, T has trap index 

fetch dest link for trap 
(enter here from PORTO) 
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LFCn - call local procedure n (i.e. within same global frame) 



!l,l,LFCx; 



shake B/A dispatch 



LFCl 
LFC2 
LFC3 
LFC4 
LFC5 
LFC6 
LFC7 
LFC8 



L<-2, 


LFCx; 


L^3. 


LFCx; 


L<-4, 


LFCx; 


L*-5. 


LFCx; 


L<-6, 


LFCx; 


L<-7, 


LFCx; 


L<-10, 


:LFCx 


L^ll, 


:LFCx 



LFCx: 



count*-L LSH 1. L*-0. IR*-msrO, :SFCr; 



stash index of proc. (*2) 
dest link = for local call 
will return to XferG 



LFCB - call local procedure number 'alpha' (i.e. within same global frame) 



LFCB: 
LFCr: 



IR<-sr22, :Getalpha; 
L<-0+T+l. :LFCx; 
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RET - Return from function call. 



!l,l,RETx; 

RET: 

RETx: 
RETxr: 



RETr: 



T^lp, :RETx; 

IR*-2, :CheckXferTrap; 

MAR<-nretl inkoffset+T; 

L*-nlpoffset+T+l; 

f rame«-L; 

L*-MD; 

mx<-L, L^O, IR^msrO, TASK; 

my^L, :FreeSub; 

T*-mx, :Xfers; 



shake B/A branch 
local pointer 

get previous local frame 

stash for 'Free' 

pick up prev frame pointer 

mx points to caller 

clear my and go free frame 

xfer back to caller 



LINKB - store back link to enclosing context into local 

LINKB is assumed to be A-aligned (no pending branch at entry) 



LINKB: 



MAR^lp-T-1; 
T*-ib; 

L<-mx-T, TASK; 
MD*-M, : next A; 



address of local 

L: mx-alpha 

local <- mx-alpha 



LLKB - push external link 'alpha' 

LLKB is assumed to be A-aligned (no pending branch at entry) 



LLKB: 
LLKBr: 



T^-ib; 

L*-0-T-l. IR<-0, :EFCdoGetlink; 

:pushTA; 



T:alpha 

L:-(alpha+l) , go call Getlink 

alignment requires pushTA 
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Port Operations 



PORTO - PORT Out (XFER thru PORT addressed by TOS) 



PORTO: 

PORTOpc: 

PORTOr: 



IR*-sr3, :Savpcinf rame; 

L«-ret5, TASK» :Xpopsub; 

MAR*-T; 

L<-T; 

MD<-my ; 

MAR*-M+1; 

my*-L, :Mtrapa; 



undiddle Ip into my 
returns to PORTOr 
fetch from TOS 

frame addr to word of PORT 

second word of PORT 

source link to PORT address 



PORTI - PORT In (Fix up PORT return, always immediately after PORTO) 
assumes that my and mx remain from previous xfer 



!l.l,PORTIx; 
!1.2,P0RTInz,P0RTl2; 



PORTI: 
PORTIx: 

PORTInz: 

PORTIz: 



MAR<-mx. : PORTIx; 

SINK«-my. BUS = 0; 
TASK, :PORTInz; 

MD<-0; 
MAR*-mx+l; 
TASK, iPORTIz; 
MD«-my, :next; 



first word of PORT 



store it as second word 
store my or zero 
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State Switching 



Savestate subroutine: 

saves state of pre-empted emulation 
Entry conditions: 

L holds address where state is to be saved 

assumes undiddled Ip 
Exit conditions: 

Ip, stkp, and stack (from base to min[depth+2.8]) saved 



; !l,2,DSTrl,Mstopc; actually appears as 7ol , 1777, 776, DSTrl .Mstopc; and is located 
; in the front of the main file (Mesa.mu). 

!17,20,Sav0r,Savlr,Sav2r.Sav3r,Sav4r,Sav5r.Sav6r,Sav7r,Savl0r.Savllr,DSTr, , , , , ; 
!l,2,Savok,Savmax; 



Savestate: 
Savestatea: 

Savllr: 
SavlOr: 



temp<-L; 

T^-12+1; 

L*-lp, :Savsuba; 

L<-stkp, :Savsub; 

T*-stkp+l; 

L«-7+T; 

L^O+T+1. ALUCY; 

temp2*-L, L^-O-T, :Savok; 



Savmax: 


T*-7; 




L<-stk7, :Savsuba 


Savok: 


SINK*-temp2, BUS; 




count<"L, :SavOr; 


Sav7r: 


L*-stk6, :Savsub; 


Sav6r: 


L^stkS, :Savsub; 


Sav5r: 


L*-stk4, :Savsub; 


Sav4r: 


L^stkS, :Savsub; 


SavSr: 


L^stk2, :Savsub; 


Sav2r: 


L*-stkl, :Savsub; 


Savlr: 


L*-stkO, :Savsub; 


SavOr: 


SINK^DISP. BUS; 




To-12, :DSTrl; 



; Remember, T is negative 

Savsub: T<-count; 
Savsuba: temp2<-L, L<-0+T+l; 

MAR^temp-T; 

count<-L, L<-0-T; 

SINK^M, BUS, TASK; 

MD<-temp2, :SavOr; 



i.e. T<-11 

check if stkp > 5 or negative 

L:stkp+2 

L:-stkp-l 

stkp > 5 => save all 
stkp < 6 => save to stkp+2 



return to caller 
{for DST's benefit) 



dispatch on pos. value 
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Loadstate subroutine: 

load state for emulation 

Entry conditions: 

L points to block from which state is to be loaded 

Exit conditions: 

stkp, mx, my, and stack (from base to min[stkp+2,8]) loaded 
(i.e. two words past TOS are saved, if they exist) 

Note: if stkp underflows but an interrupt is taken before we detect 
it, the subsequent Loadstate (invoked by Mgo) will see 377B in the 
high byte of stkp. Thinking this a breakpoint resumption, we will 
load the state, then dispatch the 377 (via brkbyte) in XferO, causing 
a branch to StkUf (!) This is not a fool-proof check against a bad 
stkp value at entry, but it does protect against the most common 
kinds of stack errors. 



17,20,LsrO,Lsrl,Lsr2,Lsr3,Lsr4,Lsr5,Lsr6,Lsr7,LsrlO,Lsrll,Lsrl2, , , , , ; 

l,2,Lsmax,Ldsuba; 

l,2,Lsr,BITBLTdoner; 



Loadstate: temp<-L, IR<-msrO, :NovaIntrOn 


Lsr: 


T^12, :Ldsuba; 


Lsrl2: my*-L, :Ldsub; 


Lsrll: mx<-L, :Ldsub; 


LsrlO: stkp<-L; 




T^stkp; 




L«-177400 AND T; 




brkbyte^L LCY 8; 




L^T<-17.T; 




L*-7+T; 




L-T, SH<0; 




stkp^L, T<-0+T+l, : Lsmax; 


Lsmax: T^7, :Ldsuba; 


Lsr7 


stk7*-L, 


Ldsub 




Lsr6 


stk6<-L, 


Ldsub 




Lsr5 


stk5<-L, 


Ldsub 




Lsr4 


stk4*-L, 


Ldsub 




Lsr3 


stk3<-L, 


Ldsub 




Lsr2 


stk2<-L, 


Ldsub 




Lsrl 


stkl*-L, 


Ldsub 




LsrO 


stkO<-L, 


Xfer; 


Ldsut 


): T«-count; 


Ldsul 


3a: MAR<-temp+T; 




L*-ALLONES+T; 




count^L, L^T; 




SINK<-M, BUS; 




L<-MD, TA< 


>K, :L< 


srO; 



stash pointer 



check for BRK resumption 
(i.e. bytecode in stkp) 
stash for Xfer 
mask to 4 bits 
check stkp > 6 

T:stkp+1 



deer count for next time 
use old value for dispatch 
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DST - dump state at block starting at <LP>+alpha, reset stack pointer 

assumes DST is A-aligned (also ensures no pending branch at entry) 



DST: 



DSTrl: 
DSTr: 



T^ib; 

T^lp+T+1; 

L^nlpoffsetl+T+1, TASK; 

temp<-L, IR<-retO, :Savestatea; 

L<-my, :Savsuba; 

temp^L. L^O. TASK, BUS=0, :Setstkp; 



get alpha 

L:lp-lpoffset+alpha 

save my too! 

zap stkp, return to 'nextA' 



LST - load state from block starting at <LP>+alpha 

assumes LST is A-aligned (also ensures no pending branch at entry) 



LST: 



LSTr: 



L<-ib; 

temp<-L, L*-0, TASK; 

ib*-L; 

IR^sr4, :Savpcinf rame; 

T«-temp ; 

L*-lp+T, TASK, :Loadstate; 



make Savpcinframe happy 

returns to LSTr 

get alpha back 

Ip already undiddled 



LSTF - load state from block starting at <LP>+alpha, then free frame 

assumes LSTF is A-aligned (also ensures no pending branch at entry) 



LSTF: 



LSTFr: 



T*-lpoffset; 
L*-lp-T, TASK; 
f rame«-L; 
IR^srZ, :FreeSub; 

T*-f rame; 

L^ib+T, TASK, :Loadstate; 



compute frame base 



set up by FreeSub 

get state from dead frame 
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Emulator Access 



RR - push <emu1ator register alpha), where: 

RR is A-aligned (also ensures no pending branch at entry) 
alpha: 1 => wdc. 2 => XTSreg, 3 => XTPreg, 4 => ATPreg, 
5 => OTPreg 



!7,10,RR0,RR1,RR2,RR3,RR4.RR5, , ; 



RR: 
RRO: 



SINK*-ib, BUS; 
:RR0; 



dispatch on alpha 



RRl 
RR2 
RR3 
RR4 
RR5 



T<-wdc, :pushTA; 
T*-XTSreg, :pushTA: 
T^XTPreg, :pushTA; 
T*-ATPreg, :pushTA; 
T*-OTPreg, :pushTA; 



WR - emulator register alpha ♦- <TOS> (popped), where: 

WR is A-aligned (also ensures no pending branch at entry) 
alpha: 1 => wdc, 2 => XTSreg 



!7,10,WR0.WR1,WR2, 



WR: 

WRr: 

WRO: 



L^retS, TASK, :Xpopsub; 
SINK<-ib, BUS; 
TASK, :WR0; 



dispatch on alpha 



WRl: 
WR2: 



wdc<-L, :nextA; 
XTSreg<-L, :nextA; 



JRAM - JMPRAM for Mesa programs (when emulator is in ROMl) 



JRAM: 
JRAMr: 



L<-ret2, TASK, :Xpopsub; 
SINK<-M, BUS, SWMODE, :next; 



BUS applied to 'nextBa' (=0) 
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Process/Monitor Support 



! 1 ,1 .MoveParmsl ; 
! 1, 1 ,MoveParms2; 
!1,1 ,MoveParms3; 
; ! 1, l,MoveParms4; 



shake B/A dispatch 

shake B/A dispatch 

shake B/A dispatch 

shake B/A dispatch 



; ME,MRE - Monitor Entry and Re-entry 
; MXD - Monitor Exit and Depart 



drop ban 1 
drop ban 1 
shake IR^isME/isMXD 

shake IR*-isMRE 



!l.l,FastMREx; 

!l,l,FastEEx; 

!7.1,FastEExx; 

!l,2,MXDr,MEr; 

!7.1,FastEExxx; 

%3.17,14,MXDrr,MErr,MRErr; 

!l,2,FastEEtrapl.MEXDdone; 

!1.2,FastEEtrap2,MREdone; 

; The fonowing constants are carefuny chosen to agree with the above pre-defs 



$isME $6001; 

SisMRE $65403; 

$isMXD $402; 

ME: IR<-isME, :FastEEx; 

MXD: IR*-isMXD, :FastEEx; 

MRE: MAR<-HardMRE, :FastMREx; 

FastMREx: IR<-isMRE, :MXDr; 

FastEEx: MAR<-stkO. IDISP, :FastEExx; 

FastEExx: T«-100000, :MXDr; 

MXDr: L^MD. mACSOURGE . :FastEExxx; 

MEr: L*:MD-T, mACSOURCE, :FastEExxx; 

FastEExxx: MAR^stkO. SH=0, :MXDrr; 

Note: if control goes to FastEEtrapl or FastEEtrap2, ACl or 

but their contents aren't guaranteed anyway. 
Note also that MErr and MXDrr cannot TASK. 

MXDrr: L<-T, T<-0 , : FastEEtrapl ; 

MErr: T*-0+l, : FastEEtrapl ; 

MRErr: L<-0+l, TASK, : FastEEtrap2 ; 

MEXDdone: MD«-M, L^T, TASK, :Setstkp; 

MREdone: stkp^L, :ME; 



IDISP:1. DISP:1, mACSOURCE:! 
IDISP:13, DISP:3, mACS0URCE:16 
IDISP:0. DISP:2, mACSOURCE:0 

indicate ME instruction 
indicate MXD instruction 

<HardMRE> --= => do Nova code 
indicate MRE instruction 

fetch monitor lock 

value of unlocked monitor lock 

L:0 if locked (or queue empty) 
L:0 if unlocked 

start store, test lock state 

AC2 will be smashed, 



L:100000, T:0 (stkp value) 
L:0, T:l (stkp value) 
L:l (stkp value) 



queue empty, treat as ME 
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MXW - Monitor Exit and Wait 



MXW: 



IR«-4, :MoveParms3; 



3 parameters 



NOTIFY, BCAST - Awaken process(es) from condition variable 



MOTIFY: 
BCAST: 



IR^5, 
IR<-6, 



:MoveParmsl ; 
:MoveParmsl; 



1 parameter 
1 parameter 



REQUEUE - Move process from queue to queue 



REQUEUE: 



IR<-7» :MoveParms3; 



3 parameter 



Parameter Transfer for Nova code linkages 
Entry Conditions: 
T: 1 
IR: dispatch vector index of Nova code to execute 



;MoveParms4: 


L<-stk3, TASK; 


J 


AC3^L; 


MoveParms3: 


L^Stk2, TASK; 


FastEEtrap2: 


AC2*-L; 


MoveParms2: 


L<-Stkl, TASK; 


FastEEtrapl: 


AC1<-L; 


MoveParmsl: 


L^StkO, TASK; 




ACO^L; 




L<-0, TASK; 




stkp^^L; 




T<-DISP+1, :STOP 



if you uncomment this, don't 
forget the pre-def above! 

(enter here from MRE) 

(enter here from ME/MXD) 

indicate stack empty 
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Miscellaneous Operations 



CATCH - an emulator no-op of length 2. 

CATCH is assumed to be A-aligned (no pending branch at entry) 



CATCH: 



L*-mpc+l, TASK, :nextAput; 



duplicate of 'nextA' 



STOP - return to Nova at 'NovaDVloc+r 

control also comes here from process opcodes with T set appropriately 



!1, l,GotoNova; 

STOP: L^NovaDVloc+T. :GotoNova; 



shake B/A dispatch 



STARTIO - perform Nova-like I/O function 



STARTIO: L<-ret4. TASK, :Xpopsub; 
STARTIOr: SINK^M, STARTF. :next; 



get argument in L 



MISC - escape hatch for more than 256 opcodes 

!5,2,Dpushx,RCLKr; 
MISC: IR^sr36, :Getalpha; 

MISCr: L<-CL0CKL0C-1 , IR^CLOCKLOC. :Dpushb; 



RCLKr: 



L*-clockreg, :Dpushc; 



appears with Dpush 

get argument in L 
throws away alpha for now 
IR<- causes branch 1! 
(and mACSOURCE of 0) 
Dpushb shakes B/A dispatch 
don't TASK here! 
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BLT - block transfer 

assumes stack has precisely three elements: 
stkO - address of first word to read 
stkl - count of words to move 
stk2 - address of first word to write 
the instruction is interruptible and leaves a state suitable 
for re-execution if an interrupt must be honored. 



l,l,BLTx; 

l,2.BLTintpend,BLTloop; 

1.2.BLTnoint,BLTint; 

l,2,BLTmore»BLTdone; 

1.2,BLTeven,BLTodd; 

l,l,BLTintx; 



BLT: 
BLTx: 

BLTloop: 
BLTnoint : 



BLTmore: 



Stk7*-L, L<-T, TASK, :BLTx; 
temp*-L. :BLTloop; 

L^T^stkl-1, BUS=0, :BLTnoint; 
stkl*-L. L^BUS AND -T, :BLTmore; 



T*-temp-l; 

MAR^StkO+T; 

L^stkO+1; 

stkO^L; 

L<-stk2+l; 

T*-MD ; 

MAR<-stk2; 

Stk2*-L, L^T; 

SINK^NWW, BUS=0, TASK; 

MD^M, :BLTintpend; 



BLTintpend: SINK*-wdc. BUS = 0. :BLTloop; 

; Must take an interrupt if here (via BLT or BITBLT) 

BLTint: SINK<-stk7, BUS = 0, :BLTintx; 

BLTintx: L*-mpc-l, :BLTeven; 

BLTeven: mpc<-L, L<-0, TASK. :BLTodd; 

BLTodd: ib<-L, :Intstop; 

; BLT completed 

BLTdone: SINK<-stk7, BUS = 0, TASK, :Setstkp; 



shakes entry B/A branch 



shake branch from BLTloop 

stk7=0 <=> branch pending 
stash source offset (+1) 



L<-0 on last iteration (value 
on bus is irrelevant, since T 
will be -1). 

T:source offset (0 or cp) 
start source fetch 

update source pointer 

source data 
start dest. write 
update dest. pointer 
check pending interrupts 
loop or check further 

check if interrupts enabled 



test even/odd pc 
prepare to back up 

even - back up pc, clear ib 
odd - set ib non-zero 



stk7=0 => return to 'nextA' 



BLTC - block transfer from code segment 

assumes stack has precisely three elements: 

StkO - offset from code base of first word to read 

stkl - count of words to move 

stk2 - address of first word to write 
the instruction is interruptible and leaves a state suitable 

for re-execution if an interrupt must be honored. 



!l,l,BLTCx; 

BLTC: 
BLTCx: 



Stk7^L, :BLTCx; 
L^cp+1, TASK, :BLTx; 



Shake B/A dispatch 

if BLT were odd, we could use: 
BLTC: T^cp+1, TASK, :BLT; 
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BITBLT - do BITBLT using ROM subroutine 

If BITBLT A-aligned, B byte will be ignored 



!l,l,BITBLTx; 

!7,l,DoBITBLTx; 

! 3 , 4 , Ms top , , Noval nt rOf f . DoBITBLT ; 



BITBLT: 
BITBLTx: 



DoBITBLT: 
DoBITBLTx: 

BITBLTdone: 
BITBLTdoner: 

BITBLTintr: 



:BITBLTx; 
TASK; 

TASK; 



Stk7*-L, 

L^stkO, 

AC2<-L; 

L*-stkl, 

ACl^L; 

SINKowdc, BUS=0; 

IR<-sr3, :NovaIntrOff ; 

L<-BITBLTret, SWMODE. : DoBITBLTx; 

PC^L, L^O, :ROMBITBLT; 

IR*-srl, :NovaIntrOn; 

brkbyte*-L, BUS=0, TASK, :Setstkp; 

L<-AC1, TASK; 
stkl^L, :BLTint; 



shake B/A dispatch 
shake IR^ dispatch 
includes NovalntrOff returns 

save even/odd across ROM call 

stash descriptor table 



check if Mesa interrupts off 

if so. shut off Nova's 

get return address 

L*-0 for Alto II ROMO "feature" 

ensure Nova interrupts are on 
don't bother to validate stkp 

pick up intermediate state 
stash instruction state 
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Mesa/Nova Communication 



Subroutines to Enable/Disable Nova Interrupts 



!3,4,Mstop,,NovaIntrOff .DoBITBLT; 
!l,2,Lsr.BITBLTdoner; 
!7.1.NovaIntrOffx; 



NovalntrOff : 
NovalntrOffx: 



NovalntrOn: 



T^IOOOOO; 

L*-NWW OR T, TASK, IDISP; 

NWW<-L, :Mstop; 

T<-100000; 

L<-WWW AMD NOT T, IDISP; 

NWW^L, L*-0, :Lsr; 



appears with BITBLT 
appears with LoadState 
shake IR*- dispatch 

disable bit 

turn it on, dispatch return 



disable bit 

turn it off, dispatch return 



IWDC - Increment Wakeup Disable Counter (disable interrupts) 
!l,2,IDnz,IDz; 



IWDC: 



Uwdc+1. TASK, :IDnz; 



skip check for interrupts 



DWDC - Decrement Wakeup Disable Counter (enable interrupts) 

!l,l,DWDCx; 

DWDC: MAR*-WWLOC. :DWDCx; OR WW into NWW 

DWDCx: T^NWW; 

L^MD OR T, TASK; 
NWW*-L ; 

SINK<-ib, BUS = 0; 
L<-wdc-l, TASK, :IDnz; 

; Ensure that one instruction will execute before an interrupt is taken 



IDnz: 
IDz: 



wdc*-L, :next; 
wdc*-L, :nextAdeaf; 



Entry to Mesa Emulation 

ACO holds address of current process state block 
Location 'PSBloc' is assumed to hold the same value 



Mgo: 



L<-ACO, : LoadState; 
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Nova 



$START 



Interface 



$1004020,0,0; 



Nova emulator return address 



Transfer to Nova code 
Entry conditions: 

L contains Nova PC to use 
Exit conditions: 

Control transfers to ROMO at location 'START' to do Nova emulation 

Nova PC points to code to be executed 

Except for parameters expected by the target code, all Nova ACs 

contain garbage 
Nova interrupts are disabled 



GotoNova: 



PC«-L, IR^msrO, : NovalntrOf f ; 



stash Nova PC, return to Mstop 



Control comes here when an interrupt must be taken. Control will 
pass to the Nova emulator with interrupts enabled. 



Intstop: L<-NovaDVloc, TASK; 
PC^L, :Mstop; 



resume at Nova loc. 30B 



Stash the Mesa pc and dump the current process state, 
then start fetching Nova instructions. 



Mstop: 
Mstopr: 



IR<-sr2, :Savpcinf rame; 

MAR<-CurrentState; 

IR^retl; 

L<-MD, :Savestate; 



save mpc for Nova code 
get current state address 
will return to 'Mstopc' 
dump the state 



; The following instruction must be at location 'SWRET', by convention. 
Mstopc: 



L<-uCodeVersion, SWMODE; 
cp^L, rSTART; 



stash ucode version number 
off to the Nova . . . 
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Mu Float. mu 

Copywrite Xerox Corporation 1980 

Horizontal bit blit. 

Updated by Bob Lyon on November 2, 1979 10:48 AM 

Updated by LStewart on May 14, 1980 7:33 PM 

Entry point is 540B. 

The only way this routine distinguishes HBlt from XHBlt 

is by inspection of stkp. If its is NOT 1 then XHBlt is used 

instead of HBlt. 

If this is used with the floating point package, 

put this file after the floating point entry predefs. 

That is, put "#HBlt.mu;" after the ram entry vector in file 

Float .mu. 

SROMMUL $1004120,0,0; MUL routine address (120B) in ROMO 

; shiftable register declarations 

$MRMC $600; 

; shiftable register declarations 

STemp $R1; 

SOpCode $R2; 

; non-shif table register declarations 

Sflags $R35; 



Sdbca 


$R36 


Sgray 


$R55 


$Smask 


$R57 


Sxl 


$R56 


$x2 


$R41 


$Mflag 


$R45 



SHoldPC $R44; 
Saddr $R47; 
SendAddr $R51; 
SAllOnes $R46; 
SsavBnk $R43; 
SBnkAddr $R42; 

; 3 and 50 should be available 

; Move seven parameters from memory to S registers 
and claculate deltax, deltay, and init point P to point A 



; 7ol, 1777, 550. HBlt 
%7,17,0. Goto,, Got2 
!1,2, Punt, Read; . 
!1,2, Step4, Step3; 
HBlt: 

T <- ALLONES; 
MAR ^ L *- 37 XOR 
BnkAddr ♦- L, L <- 
AllOnes *■ L; 
L ^ MD, TASK; 
savBnk <- L; 



Got4, , 



T; 
T; 



HBlt is the entry point. 
Got6; Return Iocs for mem reads. 



T ^ 2, :Read; 
Got2: T ^ MD; 

AC2 ^ L, L ^ T; 
ACl <- L, L <- T <- 0; 

AGO ^ L, :Read; 
GotO: T <- MD; 

flags <- L, L ^ T, TASK; 
dbca ^ L; 



-- read dbmr and y 

•- get ready for (y*dbmr) 
-- read flags and dbca 



T <- 4, :Read; 
Got4: T <r MD; 

xl ^ L, L <- T; 
x2 <r L; 

L <- xl - T - 1; 
T ^ 6, SH<0; 



read xl and x2 



Got6; 
Read: 



rPunt; 

gray ^ L, :GetAddr; 

Read memory subroutine 

MAR ♦- stkO + T; 
L ^ T; 

SINK <- M, BUS; 
L ♦- MD, :GotO; 



-- IF (xl <= x2) goto read 



-- return to Got[0-6] 
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Compute the effective word begin & end address 
addr <- dbca + (y*dbmr) + xl/16; 
endAddr «- dbca + (y*dbmr) + x2/16; 
7ol, 1777, 177, MULret; 
GetAddr: 

L *■ PC, TASK; 

HoldPC ^ L; 

T ^ ALLONES; 

L ^ MRMC XOR T, SWMODE ; 

PC <- L, :ROMMUL; 
MULret: L ^ HoldPC, TASK; -- restore the return addr 

is in ACl 



PC ^ L; 




T <r dbca; 


result 


L <- ACl + T; 




T <- M; 




L ^ xl; 




Temp <- L RSH 1; 




L <- Temp; 




Temp ^ L RSH 1; 




L <- Temp; 




Temp ^ L RSH 1; 




L <- Temp; 




Temp ♦• L RSH 1; 




L <- Temp + T; 




addr <- L; 




L ♦- x2; 




Temp ♦- L RSH 1; 




L «- Temp; 




Temp *- L RSH 1; 




L ^ Temp; 




Temp *- L RSH 1; 




L <r Temp; 




Temp ♦- L RSH 1; 




L ^ Temp + T, TASK; 




endAddr <- L; 




T <- + 1; 




L <- flags AND T; 




Mflag *- L; 




T ^ 7; 




L *- flags AND T; 




Opcode ^ L RSH 1; 





!l,2,UseXHB,Stepl; 

; -- If not HBlt then alter memory bank 

L ^ stkp - 1; 

T ^ 3, SH=0. :UseXHB; 



UseXHB: L «- savBnk AND NOT T; 
T <- stkl . T; 
MAR ♦- BnkAddr; 
L <- M OR T; 
MD ^ M. :Stepl; 

-- mainloop has for steps: 

Stepl: The left hand side of the bit. 
Step2: The right hand side of the bit. 
Step3: The middle of the bit. 
Step4: Finished. 
-- Narrow bits causes steps 1 and 3 to be performed together. 
%17,37,0, LftEndO, LftEndl, LftEnd2. LftEnd3, LftEnd4. LftEndS. 
LftEnde. LftEnd7, LftEndS, LftEndQ, LftEndlO, LftEndll, 
LftEndl2, LftEndl3.LftEndl4, LftEndl5; 

-- Step 1 - Draw the furthest left hand side of the scanline. 
-- Bits [15-offsetl .. 0] are set to I's. 
Stepl: 





T <r 17; 


-- SINK ^ xl AND 17 




L ^ xl AND T; 






SINK *- M, BUS; 






T <r endAddr, :LftEndO 




LftEndO 


: L <- ALLONES, 


.ContLE; 


LftEndl 


: L <- 77777, 


:ContLE; 
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LftEndZ 




<- 


37777. 




:ContLE 


LftEnd3 




«- 


17777, 




iContLE 


LftEnd4 




^ 


7777, 




:ContLE 


LftEndS 




♦- 


3777, 




:ContLE 


LftEnde 




4- 


1777, 




:ContLE 


LftEnd? 




<- 


777, 




rContLE 


LftEndS 




<- 


377, 




iContLE 


LftEndQ 




4- 


177, 




.-ContLE 


LftEndK 


): L 


♦- 


77, 


ContLE; 




LftEndli 


L: L 


4- 


37, 


ContLE; 




LftEndi; 


I : L 


4- 


17. 


ContLE; 




LftEndi: 


5: L 


4- 


7 , 


ContLE; 




LftEndli 


\: L 


4- 


3. 


ContLE; 




LftEndlf 


): L 


4- 


+ 1. 




:ContLE 
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!1,2. ContStl. Stplto3; 
7o3,7,0. mRead, XmRead; 
7o3,7,0, mWrite, XmWrite; 



ContLE: Smask ♦• L; 

L <- addr - T; -~ T ^ endAddr from above 

TASK, SH=0; 

:ContStl; 
ContStl: SINK ^ Mflag, BUS; 

L ^ ALLONES, :mRead; 
Stplto3: T *• 17. :Step3; 

!1.2. ContSt2. ContSt3; 

7ol7.37.0. RhtEndO. RhtEndl. RhtEnd2, RhtEnd3. RhtEnd4, RhtEndS. 

RhtEnde. RhtEnd7, RhtEndS. RhtEnd9. RhtEndlO. RhtEndll. 

RhtEndl2, RhtEndl3 .RhtEndl4. RhtEndl5; 

; -- Step 3 - Draw the furthest right hand side word of the 

; -- scanline. 

Step3: 



Bits [0 .. offset2] are left alone. 



L ♦- x2 
SINK <- 
:RhtEnd0; 
T 



AND T; 
M. BUS; 



-- SINK <- x2 AND 17 



:ContRE 
' :ContRE 
:ContRE 
:ContRE 
:ContRE 
:ContRE 
:ContRE 
:ContRE 
:ContRE 
:ContRE 
:ContRE 
:ContRE 
:ContRE 
:ContRE 
:ContRE 
:ContRE 
TASK; 



RhtEndO: T *- 77777. 
RhtEndl: T ^ 37777, 
RhtEnd2: T ^. 17777, 
RhtEnd3: T ^ 7777. 
RhtEnd4: T ^ 3777, 
RhtEndS: T <- 1777. 
RhtEnd6: T ^ 777. 
RhtEnd7: T ^ 377. 
RhtEndS: T <- 177. 
RhtEndQ: T ^ 77, 
RhtEndlO: T <- 37. 
RhtEndll: T ^ 17. 
RhtEndlZ: T <- 7 . 
RhtEndl3: T <- 3. 
RhtEndl4: T <- 0+1. 
RhtEndlS: T <- 0. 
ContRE: L <- Smask AND NOT T, 

Smask *- L; 
ContSt3: SINK ^ Mflag. BUS; 

L <r ALLONES, :mRead; 



-- The I's in Smask describes which bit locations in the word 
•- That will be affected by HBlt. 
%7.17.0. opO. opl, op2, op3; 
mRead: MAR ♦- addr. :ContMB; 
XmRead: XMAR ^ addr. :ContMB; 
ContMB: T <- Smask; 

SINK <- Opcode. BUS; 
Smask *- L. :op0; 



opO: L ♦- MD AND NOT T; 

T ♦■ gray . T; 

L <- M OR T, :ContBd2; 
» 
opl: T «- gray , T; 

L ^ MD OR T, :ContBd2; 



-- dest <- gray 



-- dest *- dest OR gray 



op2: 



gray . T; 
MD XOR T. 



:ContBd2; 



-- dest <- dest XOR gray 
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op3: T ^ gray . T; -- dest ♦• (NOT gray) AND dest 

L ^ AllOnes XOR T; 

T ^ MD; 

L <- M AND T, :ContBd2; 

ContBd2: SINK ^ Mflag, TASK, BUS; 

Temp *- L, :niWrite; 
mWrite: MAR <- addr. :Step2; 
XmWrite: XMAR ♦- addr, :Step2; 

Step2: 

T *- endAddr-1 ; 

L ♦- addr - T; 

MD <- Temp; 

L ^ addr + 1, SH<0; 

addr ♦• L, :ContSt2; -- IF(addr<endAddr) goto ContStS 
ContSt2: L <- addr - T - 1; 

SH=0; 

T <- 17, :Step4; -- IF(addr=endAddr) goto StepS 

; -- Step 4 is where we return to mesa. 

Punt: T ♦- 0; -- NOP, premature exit 

Step4: 

MAR ^ BnkAddr; 

L - 0; 

MD <- savBnk, TASK; 

stkp *- L; 

SWMODE; 

: romnextA; 
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Checksum. mu -- Ram ByteCode to compute PupChecksums 



Last modified HGM June 30, 1980 6:02 PM 
Last modified Johnsson; September 22, 1980 



9:12 AM 



Assumes that AltoConsts23 .mu and XMesaRAM.mu (which includes Mesab.mu) 
have been included and the following predef has appeared. 
7o7, 1777, 1402, PupChecksum; 



PupChecksum: 

PROCEDURE[initialSum: CARDINAL, address: POINTER, count: CARDINAL] 

RETURNS[resultSum: CARDINAL] 
initialSum: must be zero initially (used to restart after interrupts), 
address: address of block. 

count: length of block (words) NB: Zero won't work! 
Returns the ones-complement add-and-cycle checksum over the block. 
Entry point is Ram address 1402. 
Timing: 9 cycles/word 
2484 cycles (= 422 microseconds) per maximum-length Pup 

SMTEMP $R25; 

!l,2,PCMayI,PCNoI; 

!l,2,PCDisI,PCDoI; 

!l,2,PC0kCy,PCZCy; 

!l,2,PCNoCy,PCCy; 

!l,2,PCLoop,PCDone; 

!1.2,PCNoMZ,PCMinZ; 

ll.l.PCDoIl; 



PupChecksum: 

l<r stkO; 
temp<- L; 
MAR*- L<- stkl, :PCLpl; 

Top of main loop. 
Each iteration adds the next data 
the addition caused a carry, and 1 
Due to ALU function availability 
as (new data word)+(partial sum -1 
if (partial sum)=0. Hence we make 

PCLoop: MAR^ L«- stkl+1; 

PCLpl: SINK^ NWW, BUS=0; 
stkl^ L, :PCMayI; 

PCNoI: T<- temp-1, BUS=0, :PCDisI; 

PCDisI: L<- T<- MD+T+1, : PCOkCy ; 

PCOkCy: L^ stk2-l, ALUCY; 

PCLp2: stk2<- L. :PCNoCy; 

PCNoCy: L*- T, SH=0, TASK. :PCLast; 

PCCy: MTEMP^ L, L^ T<- 0+T+l . SH = 0, 

PCLast: temp^ L MLSH 1, : PCLoop; 



Must keep partial sum in R reg (not S) 
Start fetch of first word 



word to the partial sum, adds 1 if 

eft-cycles the result one bit. 

the first addition is actually done 
+1, which causes an erroneous carry 
a special test for this case. 
Start fetch of next word 
Test for interrupts 
[PCMayl, PCNoI] Update pointer 
[PCDisI, PCDoI] Get partial sum -1 
[PCOkCy, PCZCy] Add new word +1 
Test for carry out, decrement count 
[PCNoCy, PCCy] Update count 
No carry, test count=0 
TASK; Do end-around carry, test count=0 
[PCLoop, PCDone] Left cycle 1 



; Here if partial sum was zero - 
; MD+( temp-l)+T+l computation. 
PCZCy: L<- stk2-l, :PCLp2; 

; Here when done 
PCDone: L«- temp+1; 

L<- ONE, SH = 0; 
PCDnl: stkp<- L, L<- 0, :PCNoMZ; 
PCNoMZ: L<- temp, TASK, :PC6oEm; 
PCMinZ: TASK; 
PCGoEm: stk0<- L, :Emulator; 



suppress test of bogus carry caused by 



Test for minus zero (ones-complement) 
Define stack to contain one thing 
[PCNoMZ. PCMinZ] 

Minus zero, change to plus zero 
Put result on stack 



Here when possible interrupt pending. 
Note that if the interrupt does not take, 
This works only on Alto*II. 



we read MD one cycle too late. 



PCMayl: SINK<- wdc, BUS=0. : PCNoI; 



Let it take only if wdc=0 



Here when interrupt definitely pending. 

Assume that the JRAM was the A-byte. so back up mpc and set ib to zero 
to force the interpreter to re-fetch the current word and also test again 
for the interrupt we know is pending. 
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PCDoI: L*- mpC'l; 

PCDoIl: mpc<- L, L^ 0, TASK; 

ib^ L; 

L<- stkp+1, :PCDnl; 



[PCDOIl] Back up mpc, squash BUS=0 

ib<- 

Push Ram address back onto stack 



Emulator: 



SWMODE; 
: romnextA; 



Switch to Roml 

Mesa emulator entry point 
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; Float. mu -- Microcode source for Alto running 

; Mesa6 and using microcode floating point. 

; adapted from bcpl float microcode (Sproull , Maleson) 

; Copywrite Xerox Corporation 1980 

; Last modified by Stewart September 23, 1980 3:24 PM 

; Last modified by Johnsson September 24, 1980 8:25 AM 

; Entry points for FP 

!17,20,FAdd,FSub,FMul , FDiv . FComp, FFix , FFloat , FFixI , FFixC, FSticky , FRem, FRound , FRoundl , FRoundC. 

;Registers used internally to float microcode 

; these should all be available during execution of a mesa 

; bytecode 



; R reg 


isters 


$mSAD 


$R1 


mx 


$N2 


$R2 


saveret 


$M2 


$R3 


newf ield 


$M1 


$R5 


count 


$Argl 


$R7 


taskhole 


$N1 


$R3J 


>; temp 


SArgO 


$R3( 


>; temp 2 


SShiftCount 


$R36; entry --used only i 


; S reg 


ister 


"S 


SMode 


$R41 


mask --used only in add/sub 


$S1 


$R4: 


J; unused2 --sign 


SMxreg 


$R4^ 


\; alpha 


$Arg2 


$R5C 


); unused3 


$E1 


$R55 


5; ATPreg --exponent 


$S2 


$R7: 


J; was OTPreg 


$E2 


$R5" 


^ XTPreg 


SSticky 


$R7i 


I; Sticky flag 



The sticky bit for inexact result is implemented as follows: The sign 
bit indicates whether trap on inexact result is enabled, the LSB is the 
actual sticky bit. 
SOTPreg $R56; instruction (saveinst) 

Ssavestkp $R42; spot to remember stkp (unusedl) 

SSubRet $R74; subroutine return address 



SLastL $R40; M register 



!l,2.MiscOKl,MiscSmall 
!l,2,MiscOK2,MiscBig; 
$177757 $177757; 



-21B 



; Hopefully, Alpha is IN [208.. 31B] (the range for FP) 
; There are other FP instructions, but they all trap 
MISC: L^T.TASK; 

OTPreg<-L; store T (Alpha) in saveinst (OTPreg) 

L<-stkp,TASK; 

savestkp^L; store stack pointer in savestkp 

T<-177757; T^-21B 

L<-T<-OTPreg+T+l; L IN [0..11B] if FP instr. 

L^15-T,SH<0; 

L^T,SH<0,TASK, :MiscOKl; ! 1,2 ,MiscOKl,MiscSmall ; 
MiscOKl: ArgO<-L. :MiscOK2; ! l,2,MiscOK2 ,MiscBig ; 
MiscOK2: SINK*-ArgO, BUS. TASK; 

NOP,:FAdd; !17,20,xxx; 

MiscSmall : NOP, :MiscBig; ! 1, l,MiscBig; 
MiscBig: NOP. TASK, :FPTrap; 



; Microcode subroutines are defined and called from Mesa programs 
; as shown in the following example: 

; MiscAlpha: CARDINAL = 20B; -- Alpha Byte of instruction -- 
; CalluRoutine: PROCEDURE[x, y: REAL] RETURNS [z: REAL] = 
MACHINE CODE BEGIN 
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; Mopcodes.zMISC, MiscAlpha; 
END; 

; []*-CanuRoutine[a, b]; -- the call -- 



! 1 ,2 , LowNZerol , LowZerol ; 
!l,l,FCRet; 



define before use! 



returns control to emulator in Roml (or Rami on 3K machines). 
TASK in instruction calling retCom 



retCom: stkp<-L; 

SWMODE; Switch to Roml 

L^-T^-O, : romnext; Mesa emulator entry point 



pushes ArgO,,Argl and returns control to emulator in Roml 

called with stkp correct 

Remember, in Mesa, the M.S. word (ArgO) is on top of stack 



!17.20,LTpush0,LTpushl,LTpush2,LTpush3,LTpush4,LTpush5,LTpush6,LTpush7.LTpush8, 
FPdpush: L*-Arg0; 

SINK^stkp,BUS; 

T*-Argl, :LTpush0; 

LTpushO: stkl<-L , L<-T,TASK; 

Stk0*-L, :LTpushCom; 
LTpushl: stk2<-L,L<-T,TASK; 

stkl<-L, :LTpushCom; 
LTpush2: stk3<-L , L*-T,TASK; 

stk2^L, :LTpushCom; 
LTpush3: Stk4<-L , L<-T,TASK; 

stkS^L, :LTpushCom; 
LTpush4: stk5<-L , L<-T,TASK; 

stk4^L, :LTpushCom; 
LTpushS: stk6^L, L^T.TASK; 

Stk5*-L, :LTpushCom; 
LTpushe : stk7*-L , L<-T , TASK ; 

stk6<-L, :LTpushCom; 
LTpush?: NOP, TASK, :RamStkErr; 
LTpushS: NOP, TASK, :RamStkErr; 
LTpushCom: T<-2; 

L*-stkp+T,TASK, : retCom; 



pushes ArgO and returns control to emulator in Roml 
called with stkp correct 



!17,20,LUpush0,LUpushl,LUpush2,LUpush3,LUpush4,LUpush5,LUpush6,LUpush7,LUpush8, 

; cannot be a TASK in instruction coming here 

ShortRet : T<-stkp+l , BUS ; 
L«-ArgO, :LUpushO; 



LUpushO 
LUpushl 
LUpush2 
LUpushS 
LUpush4 
LUpushS 
LUpushe 
LUpush7 
LUpushS 



stkO*-L,L*-T,TASK, : retCom; 
stkl<-L , L<-T , TASK , : retCom ; 
stk2*-L , L<-T , TASK , : retCom; 
stk3<-L , L^T , TASK , : retCom; 
stk4<-L , L^T , TASK , : retCom; 
stk5^L,L<-T,TASK, : retCom; 
stk6^L,L^T,TASK, : retCom; 
stk6<-L.L^T,TASK, : retCom; 
NOP, TASK, :RamStkErr; 



Code to trap through SD in case of error 
Control gets to error handler with 
whatever was on stack at start of faulted instr. 
OTPreg is alpha byte of faulted instruction 



The next line must change to track changes in Mesa emulator 
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$romOOR$L004405,0,0; secret definition 



The way this works is to branch to OutOfRange in the bounds check 
code with the SD index - sBoundsCheck in T 
OTPreg is already loaded with the instruction 



; TASK in instruction calling this one 
FPTrap: NOP; 

T^lOO; 

L<-17 OR T.TASK; T<-137 (our SDIndex) (minus sBoundsFaul t) 
ramKFC: taskhole«-L; 

L*-savestkp,TASK; 

stkp«-L; 

T^taskhole.SWMODE; 

L<-0, : romOOR ; OutOfRange (cause KFC) 

; TASK in instruction coming here 
RamStkErr: NOP; 

T<-sBoundsFaultml+l ; 

L*-2-T, TASK, : ramKFC; KFCB, 2 (minus sBoundsFault) 



multiply subroutine 



!7,10.MulRet,MulRetl,MulRet2,MulRet3; 

! 7, 1, ramMulA; shake IR<- dispatch 

!1,2,D0MUL,N0MUL; 

!1,2,MPYL,MPYA; 

!1,2.N0ADDIER.ADDIER; 

!1,2.N0SPILL,SPILL; 

!1.2,N0ADDX.ADDX; 

!1,2,N0SPILLX,SPILLX; 

ramMul: L*-Arg2-1» BUS = 0; ! 7, 1 , ramMulA; 

ramMul A : mSAD*-L , L<-0 , : DOMUL ; ! 1 , 2 , DOMUL , NOMUL ; 

DOMUL: TASK,L<-10+1; 

Mxreg<-L; 
MPYL: L^Argl,BUSODD; 

T<-ArgO , : NOADDIER ; 11.2, NOADDI ER . ADDIER ; 

NOADDIER: 

Argl<-L MRSH 1 ,L^T,T<-0 , :NOSPILL; ! 1 ,2,W0SPILL,SPILL; 
ADDIER: L<-T^mSAD+INCT ; 

L<-Argl.ALUCY,: NOADDIER; 
SPILL: T<-ONE; 
NOSPILL: ArgO<-L MRSH 1; 

L<-Argl.BUSODD; 

T*-ArgO , : NOADDX ; ! 1 , 2 . NOADDX , ADDX ; 
NOADDX: Argl^L MRSH 1 , L^T ,T<-0, : NOSPILLX ; ! 1 , 2 , NOSPILLX.SPILLX ; 

ADDX: L<-T<-mSAD+INCT; 

L^Argl,ALUCY,:NOADDX; 
SPILLX: T^-ONE; 
NOSPILLX: ArgO*-L MRSH 1; 

L*-Mxreg+1,BUS=0 JASK; 

Mxreg<-L, :MPYL; ! 1,2 , MPYL, MPYA; 
NOMUL: T^ArgO; 

ArgO<-L,L*-T,IDISP,TASK; 

Argl^L,:MulRet; 
MPYA: IDISP.TASK; 

NOP,:MulRet; 



DPopSub: Pop TOS and NOS into L,T 



!7.10,DPopRet,DPopRetl.DPopRet2; 
!7,l,DPopA; shake IR<- dispatch 

!17,20,LRpop0.LRpopl,LRpop2,LRpop3,LRpop4,LRpop5,LRpop6,LRpop7,LRpop8, , 

; NO TASK in the instruction getting here 
DPop: T<-2; !7,l.DPopA; 
DPopA: L*-stkp-T, BUS, TASK; 
stkp«-L, :LRpopO; 

LRpopO: NOP. TASK, :RamStkErr; stkp=0! 
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LRpopl: NOP, TASK, :RamStkErr; stkp=l! 
LRpop2: L*-stkl; 

T<-stkO,IDISP, :LRpopCom; 
LRpop3: L*-stk2; 

T*-stkl,IDISP, :LRpopCom; 
LRpop4: L<-Stk3; 

T<-stk2,IDISP, :LRpopCom; 
LRpop5: L<-stk4; 

T<-stk3,IDISP. :LRpopCom; 
LRpop6: L<-stk5; 

T<-stk4,IDISP, :LRpopCom; 
LRpop7: L<-stk6; 

T*-stk5,IDISP, :LRpopCom; 
LRpopS: L<-stk7; 

T«-stk6,IDI$P, :LRpopCom; 
LRpopCom: SH<0, :DPopRet; 



UnPack: load up arguments into registers 



Purpose is to unpack the two float numbers on mesa stack 

and save them in S,E,M,N 1 and 2 

We unpack the b argument first, so Fix can jump into middle and 

just unpack a 

This code uses a threading idea. Once IR has been set up with srO 

or srl, the IDISP return can be used with even 1 instruction subroutines. 

!17,20,LoadRet,LoadRetl,LoadRet2,LoadRet3,LoadRet4,LoadRet5,LoadRet6,LoadRet7.LoadRetl0,LoadRetll; 
l,2,UPPos,UPNeg; 
l,2,PVbSign,PVSign; 
l,2,UPRlb,UPRl; 
l,2.UPR2b.UPR2; 
l,2.UPR4b,UPR4; 
l,2,UPBias,UPNoBias; 
l,l,UPBiasl; 
l,2,PVR6b,PVR6; 
l,2,PVbCom.PVbNaN; 
l,2,PVR5b,PVR5; 
1,2, UPON, UPZeroT; 
l,2,PVR7b,PVR7; 
l,2.PVbDNb,PVbZero; 

TASK in the instruction getting here 
LoadArgs: SubRet*-L; save return address 

IR«-sr0, :DPop; 
DPopRet: Arg0<-L,L<-T, IDISP. :UPPos; ! 1 , 2 ,UPPos.UPWeg ; 



UPPos: Argl*-L,L*-0,TASK,:PVbSign; 
UPNeg : Arg 1<-L , L<-0- 1 , TASK , : PVbS i gn ; 



!l,2,PVbSign,PVSign; 
Store S=-l 



PVbSign: 
UPCl: 

UPRlb: 
UPC2: 



S2<-L,:UPC1; 



Unpack Common 1 

Low 8 bits of mantissa 



T^377, IDISP; 

L*-Argl AND T,: UPRlb; 

!l,2,UPRlb,UPRl; 
N2<-L LCY 8.:UPC2; Store in left half word 



UPR2b: 

UPC4: 
UPR4b: 



UPC5: 



L^Argl AND NOT T; Middle 8 bits of mantissa 

Argl<-L LCY 8, IDISP; Store in right half word 

; Now here we are using 377 instead of 177, but it doesn't matter 

; because we will or in a one bit there anyway, later. 

L^ArgO AND T,TASK, :UPR2b; High 7 bits of mantissa 

!l,2,UPR2b,UPR2; 
M2<-L LCY 8; Store in left half word 
T<-100000; hidden bit 

T<-M2 OR T, IDISP, :UPC4; high 7 bits of mantissa 
L<-Argl OR T .TASK, :UPR4b; next 8 bits 

!l,2.UPR4b,UPR4; 
M2<-L,:UPC5; mantissa finished 

Here we use 177600 instead of 77600, but the left shift clears it. 

The SH=0 test works because the test depends on L from the 

previous microinstruction plus shifter operation during 

current microinstruction 
T«-177600; exponent mask 
L^ArgO AND T; 
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ArgO<-L LSH 1,SH=0; exponent left justified now 

L-ArgO,IDISP.:UPBias; ! 1 ,2,UPBias ,UPNoBias; 

UPBias: ArgO<"L LCY 8,:UPBiasl; exponent right justified now 
; !l,l.UPBiasl; 
UPBiasl: T^377; 

L*-ArgO-T,IDISP; check for exp=377 

T-177 , SH=0 , : PVR6b ; ! 1 . 2 , PVR6b , PVR6 ; 

PVR6b : L^ArgO-T .TASK, : PVbCom; ! 1 , 2 , PVbCom, PVbNaN; 
PVbCom: E2<-L, : PackedVectora; 

PVbNaN: NOP,:FPTrap; Instruction after TASK! 

; Test if mantissa was zero, if so then true zero, else denormalized 
UPNoB i as : T<-100000 , : PVR5b ; ! 1 , 2 , PVR5b , PVR5 ; 



PVR5b: SINK<-N2,BUS = 0; 

L *- M2 XOR T,IDISP,:UPDN; 



!l,2,UPDN.UPZeroT; 



UPON: NOP. TASK, :PVbNaN; ; !1.1, PVbNaN; 

UPZeroT: NOP, SH=0,:PVR7b; ! 1, 2 .PVR7b, PVR7 ; 

PVR7b : M2<-L , : PVbDNb ; ! 1 , 2 , PVbDNb , PVbZero ; 

PVbDNb: NOP, TASK, : FPTrap ; 

PVbZero: L<-E2, TASK. : PVbCom; don't diddle sign 

; now unpack TOS 



!1.2.LRET,PVNaN; 
!l,2.PVDNb,PVZero; 

; Cannot be TASK in instruction coming here 

PackedVectora: IR<-srl, :DPop; 

DPopRetl: ArgO^L, L*-T, IDISP, :UPPos; 



!l,2.UPPos,UPNeg; 



PVSign: S1^L.:UPC1; 



UPRl: Nl<-L LCY 8,:UPC2; Store in left half word 

UPR2: Ml*-L LCY 8; Store in left half word 

T*-100000; hidden bit 

T<-M1 OR T,IDISP, :UPC4; high 7 bits of mantissa 

UPR4: M1^L,:UPC5; mantissa finished 

PVR6: L<-Arg0-T .TASK, : LRET; ! 1 , 2 , LRET, PVNaN; 

PVR5: SINK^N1,BUS=0; 

L ^ Ml XOR T,IDISP,:UPDN; ; ! 1 ,2 ,UPDN .UPZeroT; 
PVR7 : Ml^L , : PVDNb ; ! 1 , 2 . PVDNb , PVZe ro ; 
PVDNb: NOP. TASK. : FPTrap; Denormalized number 
PVZero: L^El, TASK, : LRET; true zero 

PVNaN: NOP,:FPTrap; Instruction after TASK! 

LRET: El^L; 

SINK^-SubRet. BUS. TASK; ;and, the big return 

NOP. :LoadRet; [LoadRet.LoadRetl.LoadRet2.LoadRet3] 



repack into ApgO.,Argl, push and return 



1.2,FSTNZero.FSTZero; 

1,2, Round, NoRound; 

l,2,PMRound,MidRound; 

l,l,MRndl; 

l,2.MidRPlusl.MidRPlusO; 

1.2,RPlusO.RPlusl; 

1.2,FSTNoR2,FSTR2; 

1.2,FSTNoSh,FSTSh; 

1.2,IRNoTrap,IRTrap; 

l,l,NoRoundl; 

1.2,NoExpUF,ExpUF; 

1.2.NoExpOV.ExpOV; 

l,2.FSTNeg,FSTPos; 
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RePack: SINK<-M1,BUS = 0; check for zero result 

; do a form of rounding, by checking value in low Nl bits 

T<-377 , : FSTNZero ; ! 1 , 2 , FSTNZe ro , FSTZero ; 

FSTZero: L*-0, : LowZerol ; LowZerol will set sign 

FSTNZero: L^T*-N1.T; 

after the subtract in the next instruction, SH=0 if the result is halfway 
between representable numbers. SH<0 if the result is larger in magnitude 
than halfway 

L^200-T,SH=0; 

T<-377,SH=0, : Round; ! 1 ,2 ,Round,NoRound ; 
Round: NOP.SH<0, :PMRound; ! 1 . 2 . PMRound ,MidRound ; 

MidRound: T<-N1, :MRndl ; NO pending branch because SH=0! 
; but to be safe !l.l,MRndl; 

MRndl: L<-400 AND T; 

NOP,SH=0; 

T*-377,:MidRPlusl; ! 1 .2 ,MidRPlusl ,MidRPlusO; 
MidRPlusO: L^Ml AND T.TASK, : NoRoundl ; 
MidRPlusl: L^Nl+T+1 , :RoundPlus; 

PMRound: T*'377 , : RPlusO ; ! 1,2 ,RPlusO ,RPlusl ; 
RPlusl: L^Nl+T+l,:RoundPlus; 
RPlusO: L*-M1 AND T , TASK, : NoRoundl ; 

FSTR: T^400; 

L*-N1+T; 
RoundPlus: N1<-L,ALUCY; 

L<-M1+1 , : FSTN0R2 ; ! 1 , 2 , FSTNoR2 . FSTR2 ; 
FSTR2 : Ml<-L , ALUCY , TASK , : FSTNoR2 ; 

FSTNoRZ : NOP , : FSTNoSh ; ! 1 , 2 , FSTNoSh , FSTSh ; 
FSTSh: L<-T^M1; low order 

Ml*-L RSH 1; 

L^N1,TASK; 

Nl^L MRSH 1; 

L^E1+1,TASK; 

El«-L; 
FSTNoSh: T*-0+l; sticky bit for inexact result 

L^Sticky OR T; 

Sticky<-L,SH<0; 

T«-377 , : IRNoTrap ; 11,2, IRNoTrap , IRTrap ; 
IRTrap: NOP, TASK. : FPTrap; 

IRNoTrap: L<-M1 AND T, TASK, : NoRoundl ; 

NoRound: L<-M1 AND T, TASK, : NoRoundl ; ! 1 , 1 ,NoRoundl; 
NoRoundl: ArgO^L; low 8 bits, r.j. (middle mantissa) 

T ^ 177400; 

L*-M1 AND T; 

Ml^L LSH 1; high 7 bits, l.j. with h.b. shifted out 

T^Nl.T; high 8 bits, 1 . j. 

L^ArgO OR T,TASK; 

Argl^L LCY 8; ready for FPdpush 

T*-176; 

L*-E1+T; 

L<-E1+T+1,SH<0,TASK; 

ArgOH LCY 8,:NoExpUF; ! 1 ,2 ,NoExpUF ,ExpUF; 
; At this point, the exponent is in left half of ArgO, but not tested for OV yet 
NoExpUF: T*-E1; 

L<-177-T; 

L*-M1,SH<0; Swab M! , to r.j. mantissa 

Ml^L LCY 8,:NoExpOV; ! 1, 2,NoExpOV, ExpOV; 

ExpUF: NOP,TASK,: FPTrap; 
ExpOV: NOP,TASK,: FPTrap; 

; If we get herem, the exp in l.h. of ArgO is in range 
NoExpOV: T<-ArgO; r.h. zero, so don't mask 

L<-M1 OR T,TASK; 

ArgO^-L RSH l.:FSTSgn; ready for FPdpush 
; at this point, M1,,N1 has everything but sign 

; Set sign bit 

FSTSgn: SINK^S1,BUS=0; 

L^T^-ArgO , : FSTNeg ; 11,2, FSTNeg , FSTPos ; 
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FSTNeg: L*-100000 OR T; 
FSTPos: ArgO ^ L,:FPdpush; 



Float: a long integer is on the stack 



!l,2,FltPos,FltNeg; 

!1.2.FnLNZ,FltLZ; 

!1.2,FltHNZ,FltHZ; 

!l,2,FltCont,FltAnZ; 

!l,2,FUMore,FltNorm; 

FFloat: IR^sr2, :DPop; 

DPopRet2 : Ml^L , L*-T , : F 1 tPos ; ! 1 , 2 , Fl tPos » Fl tNeg ; 

FltPos: Nl<-L.L^O,TASK,:FltSign; 

FltNeg: L*-0-T; negate the double word, store Sl = -1 

N1«-L.SH=0; 

T<-Ml,:FltLNZ; ! 1 , 2 . Fl tLNZ , FltLZ ; 

FltLNZ: L<-0-T-l, :FltStore; complement 
FltLZ: L<-0-T, :FltStore; negate if low word 
FltStore: Ml<-L.L*-0-l ,TASK. : FltSign; set sign = -l 
FltSign: Sl^L; 

;now, double word LShift until normalized 

L^37.TASK; 

El<-L; 31 decimal if already normalized 

; we will always shift at least once, so max exponent will be 30 

SINK*-M1,BUS = 0,TASK; 

NOP,:FltHNZ; ! 1 .2 , Fl tHNZ , Fl tHZ ; 

FltHZ: T^N1,BUS=0; 

L^17,:FltCont; ! 1 ,2 , FltCont , Fl tAl IZ; 
FltAllZ: L<-0, :LowZerol; SI known to be 
FltCont: E1*-L,L*-T; 16 shifts like wildfire 

M1*-L,L<-0,TASK; 

Nl^L,:FltHNZ; 

FltHNZ: UMl; 

T^N1,SH<0; 

Ml<-L MLSH l.L*-T,:FltMore; ! 1,2, Fl tMore , Fl tNorm; 

FltMore: Nl<-L LSH 1; 

L<-E1-1,TASK; 

El<-L,:FltHNZ; 

; We just shifted out the leading one, so put it back. 
Fl tNorm: L^Ml; 
T<-0NE,TASK; 
Ml^L MRSH 1, :RePack; 



; Remai 


nder 


^: not 


. implemented 


FRem: 


NOP 


TASK,: 


FPTrap; 


; Round 


to 


Integer 



!l,2,FRIEPlus.FRIENeg; 

!l,2,FRIE0K,FRIE0v; 

!l,2.FRINStik,FRIStik; 

!l,2,FRIShift,FRIDone; 

!l,2,FRINE,FRIPluslA; 

!l,2,FRINPlusl,FRIPlusl; 

ll,2,FRIPN0v,FRIP0v; 

!l,2,FixINeg,FixIPos; 

FRoundl: L^7,TASK, :SavePVA; (see Fix) 

LoadRet?: L^T«-E1+1; 

L<-20-T-l,SH<0; El must be positive 
El<-L,SH<0,:FRIEPlu$; ! 1 ,2 , FRIEPlus , FRIENeg ; 
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FRIEPIus: L<-T<-M1.TASK, iFRIEOK; El must be < 15 decimal 
FRIShift: L<-T<-M1 ,TASK, : FRIEOK; ! 1 , 2 , FRIEOK , FRIEOv ; 
FRIEOK: Ml<-L RSH 1; 

L<-N1.TASK,BUS0DD; 

Nl^L MRSHl. :FRINIStik; ! 1 , 2 , FRINStik, FRIStik ; 
FRINStik: L^El-1 .BUS=0 ,TASK; 

El^L, : FRIShift; ! 1 , 2 , FRIShift , FRIDone; 

FRIStik: T<-0+l; 
L*-N1 OR T.TASK; 
Nl<-L,:FRINStik; 

; IF N1=100000B then let Mesa handle it. IF N1>100000B then add 1 to Ml 
FRIDone: T^N1,BUS=0; 

L^IOOOOO-T, :FRINE; ! 1 ,2 , FRINE , FRIPluslA; 
FRINE: NOP,SH<0; 

L<-Ml+l,SH = 0,:FRINPlusl; ! 1 ,2 , FRINPlusl, FRIPlusl ; 

; 100000 bit may have been on, SH=0 will branch if so 
FRINPlusl: SINK<-Sl,BUS = 0,:FRIPNOv; ! 1 . 1 , FRIPNOv . FRIPOv ; 

; complete the +1. The pending SH=0 branch will not go 
FRIPlusl: Ml*-L,SH<0,:FRIPluslA; ; ! 1 , 1, FRIPl uslA; 
FRIPluslA: SINK<-Sl,BUS = 0,:FRIPNOv; ; ! 1 ,2. FRIPNOv , FRIPOv ; 
FRIPNOv: L*-T«'Ml,:FixINeg; ! 1 ,2 .FixINeg . FixIPos ; 

FRIENeg: L*-0,TASK, : FCRet ; store and return 
: U.l.FCRet; 
Overflow here is a little funny; 
; Fixl of lOOOOOB traps, but is really OK, this shouldn't 
; happen very often, so the Mesa code can handle it 
FRIEOv: NOP. TASK, :FPTrap; FixIExponentOverf low (trap) 
FRIPOv: NOP,:MiscBig; ; ! 1 , l,MiscBig ; 



Round to Long Integer 



l,2,FRgeml,FRlsml; 

l,2,FRls31,FRge31; 

l,2,FRle29,FR30; 

l,2,FRNext,FRDone; 

l,2,FRLoop,FRStik; 

3,4,FRD300,FRD301,FRD302,FRD303; 

l,2,FRDNoAdd,FRDAdd; 

l,2,FRDNoCy.FRDCy; 

l,2,FRDN0v,FRD0v; 

l,2,FixShift,FixSgn; This occurs here first 

1, 1, FixENegl; This occurs here first 

FRound: L<-11 ,TASK, :SavePVA; 
LoadRetll: L*-T^E1+1; 

L*-177740+T.SH<0; 

L<-LastL+l , ALUCY . : FRgeml ; 11,2, FRgeml . FRl sml ; 
FRgeml: L<-37-T-l ,SH = , : FRls31 ; ! 1 ,2 , FRls31 , FRge31 ; 
■FR1s31: S2^L,:FRle29; ! 1,2 . FRle29 , FR30; 

FRle29: L<-S2-1,BUS=0,TASK, : FRLoopl ; 

FRLoop: L^S2-1,BUS=0,TASK; 

FRLoopl: S2*-L, :FRNext; ! 1 ,2 . FRNext ,FRDone; 

FRNext: L*-T<-M1; 

Ml<-L RSH 1; 

L^N1,TASK,BUS0DD; 

Nl<-L MRSH l,:FRLoop; ! 1 ,2 , FRLoop , FRStik; 

FRStik: T<-0+l; 

L^Nl OR T.TASK; 
Nl<-L,:FRLoop; 

FRDone: T*-3; 

L^Nl AND T; 

M2<-L; 

L^T<-M1; 

Ml<-L RSH 1; 

L*-N1,TASK; 

Nl^L MRSH l,:FRLastSh; 
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FR30: L<-0,TASK; 

M2^L; 
FRLastSh: L<-T*-M1; 

Ml«-L RSH 1; 

L<-N1,TASK; 

Nl*-L MRSH 1; 

SINK*-M2,BUS; 

L<-N1+1 , : FRD300 ; ! 3 , 4 , FRD300 , FRD301 , FRD302 . FRD303 ; 
FRD300: NOP.:FixSgn; 
FRD301: NOP,:FixSgn; 
FRD302: SINK<-N1 ,BUSODD; 

L<-N1+1 . : FRDNoAdd ; ! 1 , 2 , FRDNoAdd , FRDAdd ; 
FRDNoAdd: NOP,:FixSgn; 
FRDAdd: N1*-L,ALUCY, : FRD303a; 

FRD303: N1<-L,ALUCY; 

FRD303a : L<-M1+1 , : FRDNoCy ; ! 1 , 2 . FRDNoCy , FRDCy ; 

FRDNoCy: NOP,:FixSgn; 

FRDCy: M1^L,SH<0 .TASK; 

NOP , : FRDNOv ; ! 1 , 2 , FRDNOv , FRDOv ; 
FRDNOv: NOP,:FixSgn; 

FRDOv: NOP. TASK. :FPTrap; 

FRIsml: L^O , : FixENegl; ; ! 1. 1, FixENegl ; 
FRgeSl: NOP. :MiscBig ; ; ! 1 , l.MiscBig ; 



Round to Cardinal 



l,2.FRCVNeg,FRCV0K; 

1.2,FRCShift.FRCENeg; 

1.2.FRCE0K.FRCE0v; 

l,2,FRCMore,FRCDone; 

1.2.FRCNStik,FRCStik; 

1.2.FRCNE.FRCP1US1A; 

l,2,FRCNPlusl,FRCPlusl; 

1.2,FRCPN0v,FRCP0v; 

FRoundC: L<-10,TASK, :SavePVA; (see Fix) 
LoadRetlO: SINK<-S1.BUS = 0; Value must be positive. 

UT^El+1 , : FRCVNeg ; ! 1 . 2 , FRCVNeg . FRCVOK ; 
FRCVOK: L<-20-T .SH<0 ; El must be positive 

El«-L,SH<0.:FRCShift; ! 1,2 , FRCShif t, FRCENeg ; 

; El must be < 15 decimal 

FRCShift: L^El-1 , : FRCEOK; ! 1 .2 , FRCEOK, FRCEOv ; 

FRCEOK: E1^L.SH<0; 

L<-T<-M1 . : FRCMore ; ! 1 , 2 . FRCMo re , FRCDone ; 

FRCMore: Ml«-L RSH 1; 

L*-N1,TASK,BUS0DD; 

Nl^-L MRSHl, :FRCNStik; ! 1 ,2 , FRCNStik, FRCStik; 
FRCNStik: UEl-1 ,: FRCEOK; 

FRCStik: T*-0+l; 
L*-N1 OR T.TASK; 
Nl^L,:FRCNStik; 

FRCDone: T<-N1.BUS = 0; 

L^IOOOOO-T. :FRCNE; ! 1 .2 , FRCNE, FRCPluslA; 
FRCNE: NOP,SH<0; 

L^M1+1.SH=0, :FRCNPlusl; ! 1 ,2 , FRCNPlusl . FRCPlusl; 

; 100000 bit might have been on, SH=0 will branch if so 
FRCNPlusl : L<-M1 , : FRCPNOv ; ! 1 , 2 . FRCPNOv . FRCPOv ; 
; the ALUCY branch will branch on overflow 
FRCPlusl: Ml^L, ALUCY. :FRCPluslA; ! 1, 1, FRCPluslA; 
FRCPluslA; UMl, : FRCPNOv; ; ! 1 . 2 , FRCPNOv . FRCPOv ; 
FRCPNOv : ArgO^L , : ShortRet ; 

FRCENeg: L*-0,TASK, : FCRet; store and return 
; !l.l,FCRet; 

FRCVNeg: NOP .TASK. : FPTrap; 
FRCPOv: NOP,:MiscBig; ! 1 .l.MiscBig ; 
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FRCEOv: NOP, TASK, : FPTrap; 



Fix 



l,2,FixEPlus,FixENeg; 
l,2,FixE0K,FixE0v; 

! 1 , 2, FixShif t , FixSgn ; This occurs earlier 
l,2,FixNeg.FixPos; 
1.2,FixLNZ,FixLZ; 

! 1 , 1 , FixENegl; This occurs earlier 

FFix: L*-3,TASK; 

SavePVA: SubRet*-L, : PackedVectora; 

LoadRetS: L<-T^E1; 

L<-37-T-l,SH<0; El must be positive 
El*-L,SH<0,:FixEPlus; ! 1 ,2 , FixEPlus, FixENeg ; 

FixEPlus: L^T<-M1 , : FixEOK; El must be < 31 decimal 
FixShift: L<-T*-M1 , : FixEOK; ! 1 ,2 , FixEOK, FixEOv ; 
FixEOK: Ml<-L RSH 1; 

L*-N1,TASK; 

Nl^L MRSH 1; 

L<-E1-1,BUS = 0; 

El<-L, : FixShift; ! 1 ,2 , FixShif t, FixSgn; 

FixSgn: SINK*-S1 .BUS = 0; 

L^-T^Nl , : F ixNeg ; ! 1 , 2 , F ixNeg , F ixPos ; 

FixPos: Argl<-L; 

L^M1,TASK, :FixStore; 
FixNeg: L^O-T; 

Argl<-L,SH=0; negate the double word 

T<-Ml,:FixLNZ; ! 1 ,2 , FixLNZ , FixLZ ; 

FixLNZ: L*-0-T-l .TASK, : FixStore ; complement 

FixLZ: L*-0-T,TASK, :FixStore; negate if low word 

FixStore: Arg0<-L, : FPdpush; 

FixENeg: UO; ! 1 , 1 , FixENegl; 

FixENegl: Argl^L, TASK, : FixStore; store and return 

FixEOv: NOP, TASK, : FPTrap; FixExponen-tOverf low (trap) 



middle of unpack routine! 



; FixC Fix to CARDINAL 

!l,2,FixCVNeg,FixCV0K; 
!l,2,FixCShift,FixCENeg; 
!l,2,FixCE0K,FixCE0v; 
! 1 , 2 , F i xCMo re , F i xCDone ; 

FFixC: L^4,TASK,:SavePVA; (see FFix) 

LoadRet4; SINK*-S1,BUS = 0; Value must be positive. 

L^T^El, :FixCVNeg; ! 1 ,2, FixCVNeg . FixCVOK; 

FixCVOK: L<-17-T,SH<0; El must be positive 

El*-L,SH<0,:FixCShift; ! 1 ,2 , FixCShif t, FixCENeg ; 

; El must be < 15 decimal 

FixCShift: L*-E1-1 , : FixCEOK; ! 1 ,2, FixCEOK, FixCEOv; 

FixCEOK: E1<-L,SH<0; 

L^Ml.TASK, :FixCMore; ! 1 ,2 , FixCMore. FixCDone ; 
FixCMore: Ml*-L RSH 1 ,: FixCShif t ; 



; FixCDone called from Fixl as well 
FixCDone: Arg0<-L, :ShortRet; 



FixCENeg: 

FixCEOv: 
FixCVNeg: 



L<-0,TASK,:FCRet; 
; !l,l,FCRet; 
NOP,TASK.: FPTrap; 
NOP, TASK, :FPTrap; 



store and return 

FixCExponentOverflow (trap) 
FixCValueNegative (trap) 



Fixl Fix to INTEGER 



ll,2,FixIEPlus,FixIENeg; 
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!1.2.FixIE0K,FixIE0v; 

!l,2,FixIShift,FixIDone; 

;!l,2,FixINeg,FixIPos; 

FFixI: L*-5,TASK, :SavePVA; (see FFix) 

LoadRetS: L*-T<-E1; 

L<-17-T-1,SH<0; El must be positive 

El^L,SH<0,:FixIEPlus; ! 1 ,2 . FixIEPIus. FixIENeg ; 

FixIEPlus: L<-M1 ,TASK, : FixIEOK; El must be < 15 decimal 
FixIShift: L<-M1 ,TASK. : FixIEOK; ! 1 ,2, FixIEOK. FixIEOv ; 
FixIEOK: Ml<-L RSH 1; 

L<-E1-1,BUS=0,TASK; 

El^L, : FixIShift; ! 1 , 2 , FixIShift . FixIDone ; 

FixIDone: SINK^S1.BUS=0; 

L^T<-Ml,:FixINeg; ! 1 .2 . FixINeg , FixIPos ; 

FixIPos: NOP. TASK, :FixCDone; 
FixINeg: L*-0-T.TASK, :FixCDone; 

FixIENeg: L<-0 .TASK, : FCRet ; store and return 
; Il.l.FCRet; 

; Overflow here is a little funny; 

; Fixl of lOOOOOB traps, but is really OK, this shouldn't 

; happen very often, so the Mesa code can handle it 

FixIEOv: NOP .TASK, : FPTrap ; FixIExponentOverf low (trap) 



Mul : floating point multiply 



l,2,MulNZero.MulZero; 

1.2,MulNZerol.MulZerol; 

l,2.FMNoCy.FMCy; 

l,2,MulNoCry,MulCry; 

1.2.FMNoCyl,FMCyl; 

l,2,FMNoCy2,FMCy2; 

l,2.FMLL.FMNoLL; 

1 , 2 , Mul No rm , Mu 1 NoNo rm ; 

1.2,MulNZero2,MulZero2; 

FMul: L^O.TASK,:LoadArgs; 

LoadRet: T«-E1; add exponents, like in any multiply 

L*-E2+T+1,TASK; 
El<-L; 



T^Sl 
L^S2 
Sl^L 



and xor signs 
XOR T.TASK; 



; Putting the argument with zeros on the right wins because that loop is 
; only four cycles per bit, (see ramMul code) 

L<-M1.TASK,BUS=0; first multiply: high*low 

Arg2^L. :MulNZero; ! 1,2 .MulNZero.MulZero; 
MulNZero: L*-N2; 

Argl<-L.L<-0,TASK,:MulZeroa; 
MulZero: L<-0 , : LowZerol ; return 
MulZeroa: ArgO<-L; 

IR«-srO, : ramMul ; 
MulRet: L<-ArgO.TASK; 
; Here we will start using S2 , and E2 to hold some temporary stuff 

S2<-L; high result 

L^Argl.TASK; 

E2<-L; low result 

L<-M2,TASK,BUS=0; second multiply: other high*other low 

Arg2«-L , : Mul NZerol ; ! 1 , 2 . Mul NZe rol ,Mul Zerol ; 
MulNZerol: L<-N1; second multiply: other high*other low 

A rg 1<-L , L^O , TASK , : Mul Ze ro la ; 
MulZerol: L<-0, :LowZerol; 
MulZerola: ArgO^L; 

IR«-srl, : ramMul ; 
MulRetl: T^Argl; 
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L<-E2+T; add results, set carry if overflow 

E2*-L.ALUCY; 

T<-ArgO , : FMNoCy ; ! 1 , 2 . FMNoCy . FMCy ; 
FMNoCy: L<-S2+T . : FMCyS; 
FMCy: L<-S2+T+l , : FMCyS; 
FMCyS: S2^L,ALUCY; 

L*-0. :MulNoCry; ! 1 , 2 .MulNoCry ,MulCry ; 
MulCry: L*-ONE,TASK; 

; Use SubRet to hold carry bit 
MulNoCry: SubRet^L; 

L<-N1; third multiply: low*low 

Argl*-L,L*-0,TASK; 

Arg0<-L; 

L*-N2,TASK; 

Arg2<-L; 

IR<-sr2, : ramMul ; 
MulRet2: T<-Arg0; Argl = (low result) 

L<-E2+T; 

E2^L,ALUCY; 

L^S2+1 , : FMNoCyl ; ! 1 , 2 , FMNoCy 1 , FMCyl ; 
FMCyl: S2^L,ALUCY; 

FMNoCyl : L<-SubRet+l , : FMNoCy2 ; ! 1 , 2 , FMNoCy2 , FMCy2 ; 
FMCy2: SubRet^L; 
FMNoCy2: L^S2.TASK; 

Arg0*-L; 

;last multiply: high*high (plus stuff left in ArgO) 

L<-M1,TASK; 

Argl<-L; 

L*-M2,TASK; 

Arg2*-L; 

IR«-sr3, : ramMul ; 
MulRetS: SINK^E2.BUS=0 ; 

L*-T^Argl, :FMLL; ! 1 ,2 . FMLL. FMNoLL; 
FMLL: L<-ONE OR T,TASK, : FMNoLL; sticky bit if third word#0 

FMNoLL: Nl<-L; 

T<-ArgO; 

L^SubRet+T; add in possible carry 

M1*-L,SH<0; now. check normalization 

T<-N1, :MulNorm; 7 instructions since last TASK 
; !l,2.MulNorm,MulNoNorm; 
MulNorm: Ml^L MLSH 1; 8 

L^N1,SH=0; 9 

Nl<-L LSH 1, :MulNZero2; 10 ! 1 , 2 ,MulNZero2 .Mul Zero2; 
MulNZero2: L<-E1-1 ,TASK; decrement exponent to account for shift 
MulDone: El<-L. :RePack; 



MulNoNorm: 
MulZero2: 



L<-El.TASK.:MulDone; 
L<-0, :LowZerol; 



FDiv floating point divide 



l,2,DivOK,DivErr; 

l,2.DivOKl,DivZero; 

l,2,DAddNoCy,DAddCy; 

1.2,DSubNoCy,DSubCy; 

l,2,DivRes0,DivResl; 

1,2 ,DivMore,DivDone; 

l,2,DivAdd.DivSub; 

l,2,DivLoop,DivNorm; 

l,2,DivLast0.DivLastl; 

l,2,DivStik,DivNoStik; 

l,2,DivL0NoCy.DivL0Cy; 

1.2,Div$l,DivLCl; 



FDiv: L<-ONE,TASK, :LoadArgs; 
LoadRetl: T^E2+1; 

T^-7+T+l; 

L<-E1-T,TASK; 

El<-L; 



T<-S2; 

USl XOR T,TASK; 
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Sl^L; 

; pre right-shift 

L<-T^M2,BUS = 0; 

M2<-L RSH l,:DivOK; ! 1 . 2 ,DivOK,DivErr; 
DivErr: NOP, TASK. : FPTrap ; 
DivOK: L<-N2,TASK; 

N2^L MRSH 1; 

L<-T*-M1,BUS = 0; 

ArgO<-L RSH l,:DivOKl; ! 1 ,2 ,DivOKl .DivZero; 
DivZero: L<-0, : LowZerol ; 
DivOKl: L<-N1; 

Argl*-L MRSH l,L<-0; 

Nl*-L; win be msw result 

L<-30+l,TASK; set E2 to NumLoops-1 

E2^L; 

T^N2.:DivSub; 

DivAdd: L<-Argl+T; 

ArgK-L.ALUCY; 

T*-M2 , : DAddNoCy ; ! 1 , 2 , DAddNoCy , DAddCy ; 
DAddNoCy: L<-Arg0+T, :DOpCom; 

DAddCy: L*-Arg0+T+1, :DOpCom; 

DivSub: L<-Argl-T; 

Argl*-L,ALUCY; 

T^M2 , : DSubNoCy ; ! 1 , 2 , DSubNoCy , DSubCy ; 
DSubNoCy: L<-Arg0-T-1. :DOpCom; 
DSubCy : L<-ArgO-T , : DOpCom; 

If the operation carries, then the next operation 
should be a subtract and the result bit should be a one. 

If the operation does not carry, then the next operation 
should be an add and the result bit should be a zero. 

DOpCom: ArgO*-L.ALUCY; 

L<-T<-N1, :DivResO; • ! 1 ,2 ,DivResO,DivResl ; 

DivResl: L<-N1+T+1; 

Nl<-L, :DResCom; 
DivResO: Nl<-L LSH l,:DResCom; 

DResCom: L<-M1.TASK; 

Ml^L MLSH 1; 

L<-E2-1,TASK,BUS = 0; 

E2^L, :DivMore; ! 1 .2 .DivMore ,DivDone; 

; Now double the a operand the result sign bit will always be the same 
DivMore: L*-T<-Argl; 

Argl^L LSH 1; 

L<-ArgO,TASK; 

ArgO<-L MLSH 1; 

; do double add or subtract according to previous bit of result 
SINK^Nl.BUSODD; 
T^N2,: DivAdd; ! 1 ,2 ,DivAdd , DivSub; 

DivDone: L^T«-N1; 

S2<-L, :DivDone2; 
DivDonel: L*-T^N1; 
DivDone2: Nl«-L LSH 1; 

L<-M1; 

mSAD*-L LSH l.SH<0; 

Ml<-L MLSH l.:DivLoop; ! 1 ,2 ,DivLoop,DivNorm; 
DivLoop: L<-E1-1,TASK; 

El^L, :DivDonel; 

; If the last bit of result was a 1 AND Arg0,,Argl=0 Then EXACT 

; If the last bit of result was a AND ArgO, .Argl=-M2. ,N2 Then EXACT 

DivNorm: SINK^S2 .BUSODD; 

T<-Argl, :DivLastO; ! 1 ,2 ,DivLastO,DivLastl ; 
DivLastl: L*-ArgO OR T; 

NOP,SH=0,:DivLCl; 
DivLCl: L<-N1+1,TASK, :DivStik; 1 1,2 ,DivStik,DivNoStik; 



normalize result 
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DivLastO: L«-N2+T; 

NOP.ALUCY; 

T<-ArgO, :DivLONoCy; ! 1 ,2 ,DivLONoCy ,DivLOCy ; 
DivLONoCy: L«-M2+T .SH = , :DivLCom; 
DivLOCy: L*-M2+T+l ,SH = 0, :DivLCom; 
DivLCom: L*-N1+1 ,SH = . :DivSl; 



DivStik: Nl«-L, :RePack 
DivNoStik: NOP. :RePack; 
DivSl: N1<-L,TASK. :DivNoStik 



!l,2.DivSl,DivLCl; 



; !1,1, DivNoStik; 



;floating point add and subtract 



!1.2,Sh,NoSh2; 

!1.2,Shl,No$h; 

!l,2,EllsE2.ElgrE2; 

!1.2.NoFix,Fix; 

!1.2,ShlNStik,ShlStik; 

!1, 2. More. Shifted; 

!1.2,ExpOK.ExpWrite; 

!l,2.NoFixl,Fixl; 

!1.2,Sh2NStik,Sh2Stik; 

!l,2.Morel.Shiftedl; 

FAdd: L<-0,TASK, :StoreMode; 
FSub: L<-ALLONESJASK; 
StoreMode: Mode<-L; 

L*-2,TASK,:LoadArgs; 

;Preshift arguments until they match 
LoadRet2: T^Ml; mantissa zero check 
L*-M2 AND T; one OR the other = 
SINK^LastL,BUS=0; 

T<-El.:Sh; ! 1 . 2 .Sh ,NoSh2 ; 
Sh: L<-E2-T; if exponents are the same, no shift either 
SINK<-LastL.BUS = 0; 



ShiftCount<-L, :Shl; ! 1,2 ,Shl .NoSh; 
Shi: TASK,SH<0; 

N0P,:EnsE2; ! 1 , 2 , EllsE2 , ElgrE2 ; 
EllsE2: L<-E2,TASK; 

El<-L; we'll shift until exp matches E2 

T<-ShiftCount; 

L<-37-T; 

TASK,SH<0; 37 is max number of shifts, if SH ge then fix 

!l,2,NoFix,Fix; 



NOP,:NoFix; 
NoFix: L<-T<-M1; 
More: Ml^L RSH 1; 

L*-N1,TASK,BUS0DD; 

Nl<-L MRSH l,:ShlNStik; 
ShlNStik: UShif tCount-1 ; 

ShiftCount*-L,SH=0; 

L<-T<-M1 , : Mo re ; ! 1 , 2 , Mo re , S h i f ted ; 



sticky bits 

!1, 2. ShlNStik, ShlStik; 



ShlStik: 



T^O+1; 
L*-N1 OR T,TASK; 
Nl«-L,:ShlNStik; 



Fix: L<-0; set both words of mantissal to 
Ml^L,L*-0+l,TASK; 
Nl^-L, :EndShift; keep sticky bit set 

Shifted: NOP, : EndShift; 
NoSh: NOP,:EndShift; 



NoShz: SINK*-M1,BUS = 0; if first arg is zero, then E1^E2 

L*-E2,TASK,:ExpOK; ! 1,2 , ExpOK, ExpWrite; 
ExpWrite: El^L; 
ExpOK: NOP,:EndShift; 



ElgrE2: T^Shif tCount ; 
L«-37+T; 



actually, negative shift count 
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TASK,SH<0; 

NOP,:NoFixl; ! 1 . 2 , NoFixl , F ixl ; 
NoFixl: L<-T^M2; 
Morel: M2*-L RSH 1; 

L<-N2,TASK,BUS0DD; sticky denormalize 

N2<-L MRSH 1, :Sh2NStik; ! 1 , 2 , Sh2NSt ik ,Sh2St ik ; 
Sh2NStik: L<-Shif tCount+1 ; 

ShiftCount*-L,SH=0; 

L<-T*-M2, : Morel; ! 1 ,2 .Morel ,Shif tedl ; 

Sh2Stik: T^-O+l; 
L^N2 OR T,TASK; 
NI2^L,:Sh2NStik; 



Fixl: L<-0; 

M2^L.L^0+1.TASK; 
N2«-L,:EndShift; 



keep sticky bit set 



Shiftedl: 



NOP. :EndShift; 



;end of PRESHIFT 

;now: ADDl is Add{+ +) , Add(- -). Sub(+ -). Sub(- +) 

;and ADD2 is Add(+ -), Add{- +), Sub(+ +), Sub(- -) 

;.so: ADDl if ((SI XOR S2) XOR MODE) eq 0, and ADD2 otherwise 

1.2, ADDl. ADD2; 

l,2.AlNoCry.AlCry; 

l,2,AlxNoCry.AlxCry; 

1.2.AlNAddS.AlAddS; 

1.2.A2NoCry,A2Cry; 

l,2,A2Sign,A2NoSign; 

1.2. LowNZe ro , LowZe ro ; 

l,2.HiNZero,HiZero; 

1.2.A2Norm,A2NoNorm; 

1.2,A2NoCryL.A2CryL; 

11.2, LowNZe rol , LowZerol ; 



EndShift: T*-S1; 
L^S2 XOR T.; 
T«-Mode; 

L^LastL XOR T; 
TASK,SH<0; 
NOP, :ADD1; 



ADDl: 



defined above to avoid predef error 

if same, -1 if different 
if ADDl, -1 if ADD2 
! 1,2. ADDl. ADD2; 



T*-N1; 

L^N2+T; 

Nl^L.ALUCY; 

T*-Ml.:AlNoCry; ! 1 . 2 . AlNoCry , AlCry ; 
AlCry: L*-M2+T+l, :AlStore; 
AlNoCry: L^M2+T; 

AlStore: Ml<-L. ALUCY.TASK; 

NOP.:AlxNoCry; ! 1 .2 . AlxNoCry .AlxCry ; 
AlxCry: T<-L*-M1; post shift 

Ml<-L RSH 1; 

L^Nl.TASK.BUSODD; 

Nl^L MRSH l.:AlNAddS; ! 1 . 2 .AlNAddS, AlAddS ; 
AlAddS: T<-0+l; 

L^Nl OR T.TASK; 

Nl^L; 
AlNAddS: T^IOOOOO; 

L<-M1 OR T.TASK; high order bit should have been shifted in 

Ml*-L; 

L^E1+1,TASK; 

El<-L, :RePack; 
AlxNoCry: NOP, :RePack; 

A0D2: T^N2; 

L^Nl-T; 

N1<-L,ALUCY; low order result 

T^M2, :A2NoCry; ! 1 ,2 . A2NoCry ,A2Cry ; 
A2NoCry: L^Ml-T-1, :A2C; no carry, do one's complement subtract 
A2Cry: L^Ml-T; carry, do two's complement subtract 
A2C: Ml^L.ALUCY.TASK; 

N0P,:A2Sign; if no carry, sign changed!!!! 
; !l,2,A2Sign.A2NoSign; 
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A2Sign: T<-N1,BUS=0; double length negate starts here 

L<-0-T, :LowNZero; ! 1,2 ,LowNZero,LowZero; 
LowNZero: N1^L,T^0-1; 

L*-M1 XOR T,:A2Cx; complement 
LowZero: T<-M1; 

L<-0-T; negate (note that Nl is already 0, so no need to update it) 
A2Cx: M1<-L,T^0-1; 

L*-S1 XOR T,TASK; complement sign 

Sl<-L; 

A2NoSign: L<-0,TASK; 

ShiftCount<-L; 

L^M1,BUS=0; 

NOP.:HiNZero; ! 1 .2.HiNZero ,HiZero; 
HiNZero: TASK,SH<0; 

NOP , : A2No rm ; ! 1 , 2 , A2No rm . A2NoNo rm ; 
A2Norm: L*-N1; 

NOP.SH<0; 

Nl<-L LSH l.T<-0,:A2NoCryL; ! 1 ,2 .A2NoCryL.A2CryL; 

A2CryL: T<-ALLONES; 
A2NoCryL: L*-M1 ; 

Ml*-L MLSH 1; 

L*-ShiftCount+l.TASK; 

ShiftCount*-L; 

L«-Ml,:HiNZero: 

A2NoNorm: T^Shif tCount ; 
L*-El-T.TASK,:MulDone; 

HiZero: L*-N1.BUS=0; 

M1*-L,L^0» iLowNZerol; 11,2, LowNZerol , LowZero 1; 
LowNZerol: Nl*-L; zero out low order 
L^20.TASK; 

ShiftCount*-L; 16 shifts done like wildfire 
L^Ml,:HiNZero; 

!l,2,LNZNeg,LNZPos; 

LowZerol: SINK^Sl ,BUS=0; 

T^-IOOOOO , : LNZNeg ; ! 1 , 2 . LNZNeg . LNZPos ; 

LNZPos: T<-0,: LNZNeg; 
LNZNeg: Argl^L.L*-T,TASK; 

ArgO*-L, : FPdpush; 



Compare 



!1.2,FCANZ,FCAZ; 

!1»2,FCANZBNZ,FCANZBZ; 

!1,2,FCSD,FCSS; 

!1.2.FCEDiff JCESame; 

!1.2.FCSgnA.FCSgnB; 

!l,l,FCESamel; 

!l,2.FCMDiff,FCMSame; 

!l,l,FCMSamel; 

!l,2,FCNDiff,FCNSame; 

;!l,l.FCRet; used farther up 

!1,2,FCAZBNZ.FCAZBZ; 

!l,2.FCAlsB,FCAgrB; 

!l,2.FCAgrBl,FCAlsBl; 

FComp: L*-6,TASK, :LoadArgs; 
LoadRet6: SINK<-M1,BUS = 0; 

SINK<-M2 , BUS = 0,TASK , : FCANZ ; ! 1 , 2 . FCANZ . FCAZ ; 
FCANZ : NOP , : FCANZBNZ ; ! 1 . 2 . FCANZBNZ , FCANZBZ ; 

FCANZBZ: SINK^Sl .BUS=0,TASK, : FCAST; Return according to sign of A 
FCANZBNZ: T^Sl; A and B not 

L^S2 XOR T; 

NOP, TASK, SH=0; 

NOP,:FCSD; ! 1,2, FCSD,FCSS; 
FCSD: $INK*-S1.BUS=0,TASK, :FCAST; return according to sign of A 
FCSS: T^E2; 

L^El-T; 

T*-M1,SH=0; 
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L*-M2-T,SH<0, :FCEDiff ; ! 1 , 2 , FCEDif f , FCESame ; 

FCEDiff : NOP,:FCSgnA; ! 1 .2 . FCSgnA, FCSgnB; 
FCSgnA: SINK<-S1 ,BUS = ,TASK. :FCAST; 
FCSgnB: SINK^S2 .BUS=0 ,TASK. :FCBST; 

; In what follows, we do unsigned compares. ALUCY will branch if 

; a >= b on execution of a-b 

FCESame : T<-N1 . SH=0 , : FCESamel ; ! 1 , 1 , FCESamel ; 

FCESame 1 : L^N2-T , ALUCY , : FCMDif f ; ! 1 . 2 . FCMDif f , FCMSame ; 

FCMDif f : NOP , : FCSgnA ; ( ! 1 . 2 , FCSgnA, FCSgnB ; ) 

FCMSame : NOP ,SH = , : FCMSamel ; ! 1 , 1 , FCMSamel ; 

FCMSame 1 : NOP . ALUCY , : FCND iff; ! 1 , 2 , FCNDi f f , FCNSame ; 

FCNDif f : NOP , : FCSgnA ; ( ! 1 . 2 , FCSgnA , FCSgnB ; ) 

FCNSame: L^O,TASK, : FCRet; !l,l,FCRet; 

FCAZ : NOP . : FCAZBNZ ; ! 1 , 2 , FCAZBNZ , FCAZBZ ; 

FCAZBZ: L**0,TASK, : FCRet ; 

FCAZBNZ: SINK<-S2 ,BUS = ,TASK, : FCBST; return according to sign of B 

; BUS=0 in instruction calling FCAST, will branch if op. 1 is plus 

FCAST : NOP . : FCAl sB ; ! 1 , 2 . FCAl sB , FCAg rB ; 

FCAlsB: L<-0-l,TASK, rFCRet; 

FCAgrB: L<-0+l ,TASK, : FCRet ; 

; BUS=0 in instruction calling FCAST, will branch if op. 2 is plus 
FCBST : NOP , : FCAgrBl ; ! 1 , 2 , FCAg rBl , FCAl sBl ; 
FCAgrBl: L^0+1,TASK, :FCRet; 
FCAlsBl: L^0-1,TASK, :FCRet; 

FCRet: ArgO«-L, :ShortRet ; called from FSticky also 
; Sticky (microcode copy of sticky flags) 



!l,2,FSErr,FS0k; 

FSticky: L<-stkp-l ,TASK; 

stkp<-L; 

T*-Sticky; 

SINK^Stkp,BUS=0; 

L^stkO,:FSErr; ! 1,2 . FSErr, FSOk; 
FSOk: Sticky*-L,L<-T,TASK, :FCRet; 
FSErr: NOP, TASK, :RamStkErr; 
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XMESA MICROCODE 
Version 41 



MesaROM.Mu - Instruction fetch and general subroutines 
Last modified by Johnsson - December 21, 1979 11:02 AM 



Get definitions for ALTO and MESA 



#AUoConsts23.mu; 
^Mesab.mu; 

'uCodeVersion' is used by RunMesa to determine what version of the Mesa microcode is 
in ROMl. This version number should be incremented by 1 for every official release of 
the microcode. 'uCodeVersion' is mapped by RunMesa to the actual version number (which 
appears as a comment above). The reason for this mapping is the limited number of 
constants in the Alto constants ROM, otherwise, we would obviously have assigned 
'uCodeVersion' the true microcode version number. 

The current table in RunMesa should have the following correspondences: 
uCodeVersion Microcode version Mesa release 

34 4.1 

1 39 5.0 

2 41 6.0 



SuCodeVersion $2; 

Completely rewritten by Roy Levin, Sept-Oct. 1977 
Modified by Johnsson; July 25, 1977 10:20 AM 
First version assembled 5 June 1975. 
Developed from Lampson's MESA.U of 21 March 1975. 



GLOBAL CONVENTIONS AND ASSUMPTIONS 



1) Stack representation: 

stkp=0 => stack is empty 
sktp=10 => stack is full 

The validity checking that determines if the stack pointer is 
within this range is somewhat perfunctory. The approach taken is 
to include specific checks only where there absence would not lead 
to some catastrophic error. Hence, the stack is not checked for 
underflow, since allowing it to become negative will cause a disaster 
on the next stack dispatch. 

2) Notation: 

Instruction labels correspond to opcodes in the obvious way. Suffixes 
of A and B (capitalized) refer to alignment in memory. 'A' is intended 
to suggest the right-hand byte of a memory word; 'B' is intended to 
suggest the left-hand byte. Labels terminating in a lower-case letter 
generally name local branch points within a particular group of 
opcodes. (Exception: subroutine names.) Labels terminating in 'x' generally 
exist only to satisfy alignment requirements imposed by various dispatches 
(most commonly IR*- and B/A in instruction fetch). 

3) Tasking: 

Every effort has been made to ensure that a 'TASK' appears approximately 
every 12 instructions. Occasionally, this has not been possible, 
but (it is hoped that) violations occur only in infrequently executed 
code segments. 

4) New symbols: 

In a few cases, the definitions of the standard Alto package 

(Al toConsts23.MU) have not been quite suitable to the needs of this 

microcode. Rather than change the standard package, we have defined 

new symbols (with names beginning with 'm') that are to be used instead 

of their standard counterparts. All such definitions appear together in 

Mesab.Mu. 

5) Subroutine returns: 

Normally, subroutine returns using IDISP require one to deal with 
(the nuisance of) the dispatch caused by loading IR. Happily, however. 
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no such dispatch occurs for 'msrO' and 'srl' (the relevant bits 
are 0). To cut down on alignment restrictions, some subroutines 
assume they are called with only one of two returns and can 
therefore ignore the possibility of a pending IR<- dispatch. 
Such subroutines are clearly noted in the comments. 
Frame pointer registers (Ip and gp): 

These registers normally (i.e. except during Xfer) contain the 

addresses of local 2 and global 1, respectively. This optimizes accesses 

in such bytecodes as LL3 and SG2, which would otherwise require another cycle. 
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Location-specific Definitions 



There is a fundamental 
used outside the Mesa 
addresses that can be 
effect, this cannot be 
basic ROM, ROMO), then 
RAM and a second ROM, 
one of the other two, 
is occurring, and (2) 
Alto running Mesa will 
been chosen to work in 
has no ROMl. However, 
to use a Mesa emulator 
values in the RAM vers 
and the Nova code that 
concerning the necessa 



difficulty in the selection of addresses that are known and 
emulator. The problem arises in trying to select a single set of 
used regardless of the Alto's control memory configuration. In 
done. If an Alto has only a RAM (in addition, of course, to its 
the problem does not arise. However, suppose the Alto has both a 
ROMl. Then, when it is necessary to move from a control memory to 
the choice is conditioned on (1) the memory from which the transfer 
bit 1 of the target address. Since we expect that, in most cases, an 
have the Mesa emulator in ROMl, the externally-known addresses have 
that case. They will also work, without alteration, on an Alto that 
if it is necessary to run Mesa on an Alto with ROMl and it is desired 
residing in the RAM (say, for debugging purposes), then the address 
ion must be altered. This implies changes in both the RAM code itself 

invokes the RAM (via the Nova JMPRAM instruction). Details 
ry changes for re-assembly appear with the definitions below. 



Note concerning Alto IVs and Alto lis with retrofitted 3K control RAMs: 



The above comments apply uniformly to these machines if "RAM" 
by "RAMI" and "ROMl" is systematically replaced by "RAMO". 



is systematically replaced 



7ol,1777,0,nextBa; 



forced to location to save a word in ORAM 



Emulator Entry Point Definitions 

These addresses are known by the Nova code that interfaces to the emulator and by 
RAM code executing with the Mesa emulator in ROMl. They have been chosen so that 
both such "users" can use the same value. Precisely, this means that bit 1 (the 
400 bit) must be set in the address. In a RAM version of the Mesa emulator intended 
to execute on an Alto with a second ROM, bit 1 must be zero. 



%l,1777,420,Mgo; 



Normal entry to Mesa Emulator - load state 
of process specified by AGO. 



%1 , 1777 . 400 , next , nextA ; 

SMinterpret $1004400,0,0; 
7ol, 1777, 776, DSTrl,Mstopc; 



Return to 'next* to continue in current Mesa 
process after Nova or RAM execution. 

Documentation refers to 'next' this way. 

Return addresses for 'Savestate'. By 
standard convention, 'Mstopc' must be at 777. 



Linkage from RAM to ROMl 

The following predefs must correspond to the label definitions in MesabROM.mu 



%1, 1777, 406, Intstop; 

%1. 1777, 407, Untail; 

7o7, 1777, 430, XferGT,Xfer,Mstopr,PORTOpc,LSTr,ALLOCrfr; 



must correspond to romlntstop 
must correspond to romUntail 
Xfer must agree with romXfer 
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Linkage from Mesa emulator to ROMO 

The Mesa emulator uses a number of subroutines that reside in ROMO. In posting a 
return address, the emulator must be aware of the control memory in which it resides, 
RAM or ROMl. These return addresses must satisfy the following constraint: 
no ROMl extant or emulator in ROMl => bit 1 of address must be 1 
ROMl extant and emulator in RAM => bit 1 of address must be 
In addition, since these addresses must be passed as data to ROMO, it is desirable 
that they be available in the Alto's constants ROM. Finally, it is desirable that 
they be chosen not to mess up too many pre-defs. It should be noted that these 
issues do not affect the destination location in ROMO, since its address remains 
fixed (even with respect to bit 1 mapping) whether the Mesa emulator is in RAM or 
ROMl. [Note pertaining to retrofitted Alto lis with 3K RAMs : to avoid 
confusion, the comments above and below have not been revised to discuss 3K control 
RAMs, although the values suggested are compatible with such machines.] 



MUL/DIV linkage: 

An additional constraint peculiar to the MUL/DIV microcode is that the high-order 
bits of the return address be I's. Hence, the recommended values are: 

no ROMl extant or emulator in ROMl => MULDIVretloc = 177576B (OK to be odd) 
ROMl extant and emulator in RAM => MULDIVretloc = 177162B (OK to be odd) 



SROMMUL 
SROMDIV 



$L004120,0,0; 
$L004121,0,0; 



MUL routine address (120B) in ROMO 
DIV routine address (121B) in ROMO 



SMULDIVretloc $177576; (may be even or odd) 

; The third value in the following pre-def must be: ((MULDIVretloc-2) AND 777B) 

7ol, 1777. 574, MULDIVret,MULDIVretl; return addresses from MUL/DIV in ROMO 



CYCLE linkage: 

A special constraint here is that WFretloc be odd. Recommended values are: 

no ROMl extant or emulator in ROMl => Fieldretloc = 452B, WFretloc = 523B 

ROMl extant and emulator in RAM => Fieldretloc = 34104B, WFretloc = 14023B 



$RAMCYCX 

SFieldretloc 
$WFretloc 



$L004022,0,0; 

$452; 
$523; 



CYCLE routine address (22B) in ROMO 

RAMCYCX return to Fieldsub (even or odd) 
RAMCYCX return to WF (must be odd) 



; The third value in the following pre-def must be: (Fieldretloc AND 1777B) 

7ol, 1777, 452, Fieldrc; return address from RAMCYCX to Fieldsub 

; The third value in the following pre-def must be: (WFretloc AND 1777B)-1 

7ol, 1777, 522, WFnzct,WFret; return address from RAMCYCX to WF 
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Instruction fetch 

State at entry: 

1) ib holds either the next instruction byte to interpret 
(right-justified) or if a new word must be fetched. 

2) control enters at one of the following points: 

a) next: ib must be interpreted 

b) nextA: ib is assumed to be uninteresting and a 

new instruction word is to be fetched. 

c) nextXB: a new word is to be fetched, and interpretation 

is to begin with the odd byte. 

d) nextAdeaf: similar to 'nextA', but does not check for 

pending interrupts. 

e) nextXBdeaf: similar to 'nextXB', but does not check for 

pending interrupts. 

State at exit: 

1) ib is in an acceptable state for subsequent entry. 

2) T contains the value 1. 

3) A branch (1) is pending if ib = 0, meaning the next 
instruction may return to 'nextA'. (This is subsequently 
referred to as "ball 1", and code that nullifies its 
effect is labelled as "dropping ball 1".) 

4) If a branch (1) is pending, L = 0. If no branch is 
pending, L = 1. 
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Address pre-def initions for bytecode dispatch table. 



Table must have 2 high-order bits on for BUS branch at 'nextAni'. 

Warning! Many address inter-dependencies exist - think (at least) twice 
before re-ordering. Inserting new opcodes in previously unused slots, 
however, is safe. 

XMESA Note: RBL, WBL, and BLTL exist for XMESA only. 



7o7 




%7 




%7 




7o7 




7o7 




7o7 




7o7 




7o7 




7o7 




7o7 




7o7 




7o7 




7o7 




7o7 




7o7 




7o7 




7o7 




7o7 




7o7 




7o7 




7o7 




7o7 




7o7 




%7 




7o7 




7o7 




7o7 




7o7 




7o7 




%1 




%7 




%1 





. 1400, NOOP, ME, MRE,MXW,MXD, NOTIFY, BCAST, REQUEUE; 

. 1410,LL0,LL1,LL2,LL3,LL4,LL5,LL6,LL7; 

, 1420,LLB,LLDB,SL0,SL1,SL2,SL3,SL4,SL5; 

, 1430,SL6,SL7,SLB,PL0,PL1,PL2,PL3,LG0; 

, 1440 , L61 , LG2 , LG3 , LG4 , LG5 , LG6 , L67 , LGB ; 

, 1450.L6DB,SG0,SG1,SG2,SG3,SGB,LI0,LI1; 

, 1460,112, LI3,L 14, LI5,LI6,LIN1,LINI, LIB; 

, 1470 , LIW, LINB , LADRB ,GADRB , , , , ; 

, 1500,R0,R1,R2,R3,R4,RB.W0,W1; 

, 15 1 , W2 , WB , R F , WF , RDB , RDO , WDB , WDO ; 

, 1520,RSTR,WSTR,RXLP,WXLP,RILP,RIGP,WILP,RILO; 

, 1530, WSO,WSB,WSF,WSDB, RFC, RFS,WFS, RBL; 

,1540, WBL, ,.,,,,; 

,1550 ,,,; 

, 1560 , , , SLDB , SGDB , PUSH . POP , EXCH , LIMKB ; 

,1570,DUP,NILCK,,BNDCK,,., ; 

,1600,J2,J3,J4,J5,J6,J7,J8,J9; 

, 1610,JB,JW,JEQ2,JEQ3,JEQ4.JEQ5,JEQ6,JEQ7; 

, 1620,JEQ8,JEQ9,JEQB,JNE2,JNE3,JNE4,JNE5,JNE6; 

,1630,JNE7,JNE8,JNE9,JNEB,JLB,JGEB,JGB.JLEB; 

, 1640,JULB,JUGEB,JUGB,JULEB,JZE0B,JZNEB,,JIW; 

, 1650, ADD, SUB, MUL,DBL,DIV,LDIV,NEG, INC; 

, 1660,AND.OR,XOR,SHIFT.DADD,DSUB,DCOMP,DUCOMP; 

,1670,ADD01, ..,,,,; 

,1700,EFCO,EFC1,EFC2,EFG3,EFC4,EFC5,EFC6,EFC7; 

,1710,EFC8,E.FC9,EFC10,EFC11,EFC12,EFC13,EFC14,EFC15; 

, 1720,EFCB,LFC1,LFC2,LFC3,LFC4,LFC5,LFC6,LFC7; 

,1730, LFC8,, ,,,,,; 

, 1740 , , LFCB , SFC . RET , LLKB , PORTO , PORTI , KFCB ; 

, 1750, DESCB,DESCBS,BLT, BLTL, BLTC,, ALLOC, FREE; 

, 1760, IWDCDWDC, STOP, CATCH, MISC,BITBLT,STARTIO,JRAM; 

. 1770 , DST , LST . LSTF , , WR , RR , BRK , StkUf ; 



000-007 
010-017 
020-027 
030-037 
040-047 
050-057 
060-067 
070-077 
100-107 
110-117 
120-127 
130-137 
140-147 
150-157 
160-167 
170-177 
200-207 
210-217 
220-227 
230-237 
240-247 
250-257 
260-267 
270-277 
300-307 
310-317 
320-327 
330-337 
340-347 
350-357 
360-367 
370-377 
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Main interpreter loop 



Enter here to interpret ib. Control passes here to process odd byte of previously 
fetched word or when preceding opcode "forgot" it should go to 'nextA'. A 'TASK' 
should appear in the instruction preceding the one that branched here. 



next: 
nextBa: 



L<-0, :nextBa; 
SINK<-ib, BUS; 
ib*-L, T<-0+l. BUS = 0, 



:NOOP; 



(if from JRAM, switch banks) 
dispatch on ib 
establish exit state 



NOOP - must be opcode 

control also comes here from certain jump instructions 



! l,l,nextAput; 

NOOP: L<-mpc+T, TASK, :nextAput; 
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Enter here to fetch new word and interpret even byte. A 'TASK' should appear in the 
instruction preceding the one that branched here. 



nextA: 



L<-XMAR<-mpc+l , :nextAcom; 



initiate fetch 



Enter here when fetch address has been computed and left in L. A 'TASK' should 
appear in the instruction that branches here. 



nextAput: temp<-L; 

L<-XMAR*-temp , :nextAcom; 



stash to permit TASKing 



Enter here to do what 'nextA' does but without checking for interrupts 



nextAdeaf : L«-XMAR<-mpc+l ; 
nextAdeafa: mpc^L, BUS=0, :nextAcomx; 



Common fetch code for 'nextA' and 'nextAput' 



! 1 ,2,nextAi ,nextAni ; 
! 1,2, nextAini , nextA i i ; 



nextAcom: 
nextAcomx: 



mpc<-L; 

SINK^NWW, BUS=0; 
1^177400. :nextAi; 



updated pc 

check pending interrupts 



No interrupt pending. Dispatch on even byte, store odd byte in ib. 



nextAni: L^MD AND T, BUS. : next Ago; 
nextAgo: ib<:L LCY 8, L<-T^0+1, :NOOP; 



L*-"B"t8, dispatch on "A" 
establish exit state 



Interrupt pending - check if enabled. 



nextAi: L<-MD; 

SINK*-wdc, BUS = 0; 

T<-M.T, :nextAini; 
nextAini: SINK*-M, L^T, BUS. :nextAgo; 



check wakeup counter 
isolate left byte 
dispatch even byte 



Interrupt pending and enabled. 
!l,2,nextXBini .nextXBii ; 



nextAi i : 



L^mpc-1; 

mpc^L. L<-0, : nextXBii; 



back up mpc for Savpcinframe 
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Enter here to fetch word and interpret odd byte only (odd-destination jumps). 
!l,2,nextXBi,nextXBni ; 



nextXB: 



L<-XMAR<-mpc+T; 

SINKoNWW, BUS=0. :nextXBdeaf; 



check pending interrupts 



Enter here (with branch (1) pending) from Xfer to do what 'nextXB' does but without 
checking for interrupts. L has appropriate word PC. 

nextXBdeaf: mpc^L, :nextXBi; 



No interrupt pending. Store odd byte in ib. 



nextXBni: L<-MD, TASK, :nextXBini; 
nextXBini: ib^L LCY 8. :next; 



skip over even byte (TASK 
prevents L<-0, :nextBa) 



Interrupt pending - check if enabled. 



nextXBi ; 



SINK<-wdc, BUS = 0, :nextXBni; 



check wakeup counter 



Interrupt pending and enabled. 



nextXBii : 



ib<-L, :Intstop; 



ib = for even, ~= for odd 
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Subroutines 



The two most heavily used subroutines (Popsub and Getalpha) often 
share common return points. In addition, some of these return points have 
additional addressing requirements. Accordingly, the following predef initions 
have been rather carefully constructed to accommodate all of these requirements. 
Any alteration is fraught with peril. 

[A historical note: an attempt to merge in the returns from FetchAB as well 
failed because more than 31D distinct return points were then required. Without 
adding new constants to the ROM, the extra returns could not be accommodated. 
However, for Popsub alone, additional returns are possible - see Xpopsub.] 

Return Points (srO-srl?) 

!17.20,Fieldra,SFCr,pushTB,pushTA,LLBr,LGBr,SLBr,SGBr, 
LADRBr,GADRBr,RFr,Xret,INCr,RBr,WBr,Xpopret; 

; Extended Return Points (sr20-sr37) 

; Note: KFCr and EFCr must be odd! 

!17,2D,XbrkBr,KFCr,LFCr,EFCr,WSDBra,DBLr,LINBr,LDIVf , 

Dpush,Dpop,RDOr,Splitcomr,RXLPrb.WXLPrb.MISCr,RWBLra; 

; Returns for Xpopsub only 

!17,20,WSTRrB.WSTRrA,JRAMr,WRr,STARTIOr,PORT0r,WD0r,ALLOCrx, 
FREE rx, MEG r.RFSra,RFSrb.WFSra,DESCBcom.RFCr,NILCKr; 



; Extended Return Machinery {via Xret) 

!l,2,XretB,XretA; 

Xret: SINK<-DISP, BUS, :XretB; 

XretB: :XbrkBr; 

XretA: SINK*-0, BUS=0, :XbrkBr; keep ball 1 in air 
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Pop subroutine: 

Entry conditions: 

Normal IR linkage 
Exit conditions: 

Stack popped into T and L 



! 1, 1 , Popsub; 

! 7, 1 , Popsuba; 

! 17,20,Tpop,Tpop0,Tpopl,Tpop2,Tpop3.Tpop4,Tpop5,Tpop6,Tpop7, 

Popsub: L<-stkp-l. BUS. TASK, : Popsuba; 
Popsuba: stkp*-L, :Tpop; 



shakes B/A dispatch 
shakes IR<- dispatch 



old stkp > 



Xpop subroutine: 

Entry conditions: 

L has return number 
Exit conditions: 

Stack popped into T and L 
Invoking instruction should specify 'TASK' 



!l,l,Xpopsub; 

Xpopsub: 
Tpop: 



Xpopret: 



saveret<-L; 
IR<-srl7, :Popsub; 



SINK^-saveret. BUS; 
:WSTRrB; 



shakes B/A dispatch 



returns to Xpopret 

Note: putting Tpop here makes 

stack underflow logic work if 

stkp=0 
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Getalpha subroutine: 

Entry conditions: 

L untouched from instruction fetch 
Exit conditions: 

alpha byte in T 

branch 1 pending if return to 'nextA' desirable 

L=0 if branch 1 pending, L=l if no branch pending 



1. 2, Getalpha, Get alphaA; 

7,l,Getalphax; 

7.1,6eta1phaAx: 



Getalpha: 
Getalphax: 

GetalphaA: 
GetalphaAx: 



Getalphab: 



T^ib, IDISP; 

ib*-L RSH 1, L^O. BUS=0, :Fieldra; 

L^XMAR<-mpc+l; 

mpc<-L; 

T-177400; 

L*-MD AND T, T<-MD; 

T<-377.T, IDISP; 

ib<-L LCY 8. L*-0+l. :Fieldra; 



shake IR*- dispatch 
shake IR*- dispatch 



ib<-0, set branch 1 pending 

initiate fetch 

mask for new ib 

L: new ib, T: whole word 

T now has alpha 

return: no branch pending 



FetchAB subroutine: 

Entry conditions: none 
Exit conditions: 
T: <<mpc>+l> 
ib: unchanged (caller must ensure return to 'nextA' ; 



1,1, FetchAB; 
7,l,FetchABx; 
7,10,LIWr,JWr,,,,, ,; 

FetchAB: L*-XMAR<-mpc+l , :FetchABx; 
FetchABx: mpc*-L, IDISP; 

T^MD. :LIWr; - 



drops ball 1 
shakes IR<- dispatch 
return points 
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Splitalpha subroutine: 
Entry conditions: 
L: return index 
entry at Splitalpha if instruction is A-a1igned» entry at 

SplitalphaB if instruction is B~aligned 
entry at Splitcomr splits byte in T (used by field instructions) 
Exit conditions: 

lefthalf: alpha[0-3] 
righthalf: alpha[4-7] 



1.2, Splitalpha, SplitalphaB; 

l,l,Splitx; drop ball 1 

%160. 377, 217, Spl i to, Splitl,Split2,Split3.Split4, Splits. Splits, Split?; 
!l,2,SplitoutO,Splitoutl; 
!7,10,RILPr,RIGPr,WILPr,RXLPra,WXLPra,Fieldrb, , ; subroutine returns 



Splitalpha: 
SplitalphaB: 

Splitcom: 

Splitcomr: 

Splitx: 



SplitO 




Splitl 




$plit2 




Splits 




Split4 




Splits 




Splits 




Split? 




Splitoutl 


Splitoi 


jtO 



saveret*-L, L*-0+l, :Splitcom; 
saveret^L. L<-0 . BUS=0, :Splitcom; 

IR^sr33, :Getalpha; 

L<-17 AND T, :Splitx; 

righthalf^L, L<-T, TASK; 

temp<-L; 

L^temp, BUS; 

temp^L LCY 8. SH<0, :Split0; 



L<-T^O, 

L*-T-ONE 

L<-T^2, 

L^T*-3, 

L<-T*-4, 

L<-T^S, 



Spl itoutO; 

:SplitoutO; 
Spl itoutO; 
SplitoutO; 
Spl itoutO; 
Spl itoutO; 
SplitoutO; 
SplitoutO; 



L^IO+T, :SplitoutO; 

SINK«-saveret, BUS, TASK; 
lefthalf<-L, :RILPr; 



L*-l for Getalpha 
(keep ball 1 in air) 

T:alpha[0-7] 

L:alpha[4-7] 

L: alpha, righthalf : alp ha[4- 7] 

temp: alpha 

dispatch on alpha[l-3] 

dispatch on alpha[0] 

L,T:alpha[l-3] 



L:alpha[0-3] 

dispatch return 
lefthalf :alpha[0-3] 



MesaROM.mu 



24-JU1-81 19:03:01 



Page 14 



Dispatches 



Pop-into-T (and L) dispatch: 

dispatches on old stkp, so TpopO 



1 mod 20B. 



TpopO: 


L^T<-stkO, 


IDISP, 


:Tpopexit 


Tpopl: 


L<-T^stkl. 


IDISP. 


:Tpopexit 


TpopZ: 


L*-T^stk2, 


IDISP, 


:Tpopexit 


Tpop3: 


L<-T*-stk3, 


IDISP, 


:Tpopexit 


Tpop4: 


L<-T<-stk4. 


IDISP, 


:Tpopexit 


Tpop5: 


L*-T^stk5, 


IDISP, 


:Tpopexit 


Tpop6: 


L*-T-stk6, 


IDISP, 


:Tpopexit 


Tpop7: 


L^T<-stk7. 


IDISP, 


:Tpopexit 


Tpopexit: 


: Fieldra; 







to permit TASK in Popsub 
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pushMD dispatch: 

pushes memory value on stack 

The invoking instruction must load MAR and may optionally keep ball 1 
in the air by having a branch pending. That is, entry at 'pushMD* will 
cause control to pass to 'next', while entry at 'pushMDA' will cause 
control to pass to 'nextA'. 



3, 4, pushMD, pushMDA. StoreB.StoreA; 
17,20,push0,pushl,push2,push3,push4,push5,push6,push7,pushl0,, 

pushMD: L<-stkp+l. IR*-stkp; 

stkp^L, T<-0+l, :pushMDa; 

pushMDA: L*-stkp+l, IR<-stkp; 

stkp<-L, T<-0, :pushMDa; 

pushMDa: $INK<-DISP, L*-T , BUS; 

L«-MD, SH = 0. TASK, :push0; 



(IR*- causes no branch) 
(IR^ causes no branch) 
dispatch on old stkp value 



Push-T dispatch: 

pushes T on stack 

The invoking instruction may optionally keep ball 1 in the air by having a 
branch pending. That is, entry at 'pushTB' will cause control to pass 
to 'next', while entry at 'pushTA' will cause control to pass to 'nextA'. 



!l,2,pushTlB,pushTlA; 

pushTB: L<-stkp+l, BUS, :pushTlB; 
pushTA: L<-stkp+l, BUS, :pushTlA; 

pushTlB: stkp*-L, L<-T, TASK, :push0; 
pushTlA: stkp<-L, BUS = 0, L<-T, TASK, :pushO; 



keep ball 1 in air 



BUS=0 keeps branch pending 



push dispatch: 

strictly vanilla-flavored 

may (but need not) have branch (1) pending if return to 'nextA' is desired 

invoking instruction should specify TASK 



; Note: the following pre-def occurs here so that dpushofl can be referenced in pushlO 
!17,20,dpush, ,dpushl ,dpush2 , dpush3,dpush4,dpush5,dpush6 ,dpush7 , dpushofl ,dpushof 2 , . , , , ; 



pushO: 


stkO*-L, :next 


pushl: 


stkl<-L, :next 


push2: 


stk2<-L, :next 


push3: 


stk3*-L, :next 


push4: 


stk4<-L, :next 


push5: 


stk5*-L, :next 


push6: 


stk6<-L, :next 


push7: 


stk7<-L, :next 


pushlO: 


:dpushofl; 



honor TASK, stack overflow 
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Double-word push dispatch: 

picks up alpha from ib, adds it to T, then pushes <resuH> and 

<result+l> 
entry at 'Dpusha' substitutes L for ib. 
entry at 'Dpushc' is used by RCLK logic, 
entry at 'dpush' is used by MUL/DIV/LDIV logic, 
returns to 'nextA' <=> ib = or entry at 'Dpush' 



1.2,DpA,DpB; 
4,l.Dpushx; 

Dpush: 

Dpusha: 



DpA: 
DpB: 

Dpushb: 
Dpushx: 
Dpushc: 



dpush: 

dpushl: 

dpushZ: 

dpushS: 

dpush4: 

dpushS: 

dpushd: 

dpush?: 

dpushof 1: 

dpushofZ: 



MAR^L^ib+T, 



:DpB; 



SINK<-ib. BUS=0; 
MAR^L<-M+T. :DpA; 

IR<-0, :Dpushb; 
IR^2000. :Dpushb; 

temp<-L, :Dpushx; 

L*-MD, TASK, : Dpushc; 

taskhole^L; 

T^O+1; 

L«-stkp+T+l; 

MAR*-temp+l; 

stkp<-L; 

L<-taskhole; 

SINK*-stkp, BUS. :dpush; 

T«-MD, :dpush; 



stk0<-L. 


L*-T, TASK, 


mACSOURCE, 


pushl 


stkl<-L, 


L<-T, TASK, 


mACSOURCE, 


push2 


stk2*-L. 


L*-T, TASK, 


mACSOURCE, 


pushS 


stk3<-L. 


L^T, TASK, 


mACSOURCE, 


push4 


stk4^L. 


L^T, TASK, 


mACSOURCE, 


push5 


stk5*-L, 


L<-T, TASK, 


mACSOURCE, 


push6 


stke^L, 


L*-T, TASK, 


mACSOURCE, 


push? 


T<-s.Stac 


kOverflow, 


:KFCr; 




T*-sStac 


kOverflow, 


:KFCr; 





shakes IR<-2000 dispatch 
L: address of low half 



mACSOURCE will produce 
mACSOURCE will produce 1 

temp: address of low half 

taskhole: low half bits 



fetch high half 
stkp *- stkp+2 
L: low half bits 
dispatch on new stkp 
T: high half bits 

stack cells are S-registers, 
so mACSOURCE does not affect 
addressing. 
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TOS+T dispatch: 

adds TOS to T, then initiates memory operation on result. 

used as both dispatch table and subroutine - fall-through to 'pushMD' 

dispatches on old stkp. so MAStkTO = 1 mod 20B. 



!17,20,MAStkT,MAStkT0,MAStkTl.MAStkT2,MA$tkT3,MAStkT4,MAStkT5,MAStkT6,MAStkT7, 



MAStkTO 
MAStkTl 
MAStkT2 
MAStkia 
MAStkTA 
MAStkTS 
MAStkT6 
MAStkT7 



MAR^stkO+T. 
MAR<-stkl+T» 
MAR*-stk2+T, 
MAR*-stk3+T, 
MAR<-stk4+T. 
MAR*-stk5+T, 
MAR«-stk6+T, 
MAR*-stk7+T, 



:pushMD; 
: pushMD; 
: pushMD; 
:pushMD; 
: pushMD; 
: pushMD; 
:pushMD; 
: pushMD; 



Common exit used to reset the stack pointer 

the instruction that branches here should have a 'TASK' 
Setstkp must be odd, StkOflw used by PUSH 



! 17,11, Sets tkp,, , , , , , , StkOflw; 
Setstkp: stkp<-L, :next; 
StkOflw: :dpushofl; 



branch (1) may be pending 
honor TASK, dpushofl is odd 



Stack Underflow Handling 



StkUf : 



T*-sStackUnderflow, :KFCr; 



catches dispatch of stkp = -1 
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Store dispatch: 

pops TOS to MD. 

called from many places. 

dispatches on old stkp, so MDpopO = 1 mod 20B. 

The invoking instruction must load MAR and may optionally keep ball 1 
in the air by having a branch pending. That is, entry at 'StoreB' will 
cause control to pass to 'next', while entry at 'StoreA' will cause 
control to pass to 'nextA'. 



l,2,StoreBa,StoreAa; 

17, 20. MDpopuf. MDpopO, MDpopl,MDpop2.MDpop3.MDpop4.MDpop5,MDpop6,MDpop7, ,,,.,,; 



StoreB: L^stkp-1, BUS; 

StoreBa: stkp<-L, TASK, :MDpopuf; 

StoreA: L*-stkp-l, BUS; 

StoreAa: stkp<-L, BUS = 0, TASK. :MDpopuf; 



keep branch (1) alive 



MDpopO: 
MDpopl: 
MDpop2: 
MDpopS: 
MDpop4: 
MDpop5: 
MDpop6: 
MDpop7: 



MD^stkO. 


:next; 


MD<-stkl, 


:next; 


MD<-stk2, 


:next; 


MD*-stk3, 


:next; 


MD^stk4, 


:next; 


MD<-stk5. 


:next; 


MD<-stk6, 


:next; 


MD*-stk7, 


:next; 



Double-word pop dispatch: 

picks up alpha from ib, adds it to T, then pops stack into result and 

result+1 
entry at 'Dpopa' substitutes L for ib. 
returns to 'nextA' <=> ib = or entry at 'Dpop' 



!17,20,dpopuf2,dpopufl,dpopl,dpop2,dpop3,dpop4,dpop5,dpop6,dpop7, , 



!l,l,Dpopb; 



required by placement of 
MDpopuf only. 



Dpop: 
MDpopuf: 



Dpopa: 

Dpopb: 
dpopuf2: 



L<-T<-ib+T+l; 
IR^O, :Dpopb; 



L<-T*-M+T+l; 
IR^ib. :Dpopb 
MAR<-T, temp^L 
L«-stkp-l, BUS 
stkp<-L, TASK, 



Note: MDpopuf is merely a 
convenient label which leads 
to a BUS dispatch on stkp in 
the case that stkp is -1. It 
is used by the Store dispatch 
above. 



:dpopuf2; 



dpopufl: 

dpopl: 

dpop2: 

dpop3: 

dpop4: 

dpop5: 

dpop6: 

dpop7: 



:StkUf ; 

MD<-stkl, 

MD^stk2, 

MD«-stk3, 

MD^Stk4, 

MD<-stk5, 

MD*-stk6, 

MD^stk7. 



stack underflow, honor TASK 



:Dpopx; 
:Dpopx; 
:Dpopx; 
:Dpopx; 
:Dpopx; 
:Dpopx; 
:Dpopx; 



Dpopx: 
MAStkT: 



SINK^DISP, BUS=0; 
MAR<-temp-l, : StoreB; 
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Get operation-specific code from other files 



#MesacROM.mu; 
#MesadROM.mu; 
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MesacROM.Mu - Jumps, Load/Store, Read/Write, Binary/Unary/Stack Operators 
Last modified by Levin - November 5, 1979 4:34 PM 



Jumps 



The following requirements are assumed: 

1) J2-J9, JB are usable (in that order) as subroutine 
returns (by JEQx and JNEx). 

2) since J2-J9 and JB are opcode entry points, 

they must meet requirements set by opcode dispatch. 



Jn - jump PC-relative 



!l,2,JnA,Jbranchf ; 



J2 
J3 
J4 
J5 
J6 
J7 
J8 
J9 



JnA: 



L<-ONE 


:JnA; 


L<-2, 


JnA 




L<-3. 


JnA 




L<-4, 


JnA 




L^5. 


JnA 




L<-6, 


JnA 




L^7, 


JnA 




L^IO, 


:JnA; 


L<-M-l 


:Jk 


)ranchf 



A-aligned - adjust distance 



JB " jump PC-relative by alpha, assuming: 
JB is A-al igned 
Note: JEQB and JNEB come here with branch (1) pending 



1,1, JBx; 

1, l,Jbranch; 



JB: 
JBx: 



T^ib, :JBx; 

L^400 OR T; 

IR<-M; 

L^DISP-1, :Jbranch; 



shake JEQB/JNEB branch 

must be odd (shakes IR<- below) 



♦-DISP will do sign extension 
400 above causes branch (1) 
L: ib (sign extended) - 1 



JW - jump PC-relative by alphabeta, assuming: 
if JW is A-aligned, B byte is irrelevant 
alpha in B byte, beta in A byte of word after JW 



JW: 
JWr: 



IR<-srl, :FetchAB; 
L<-ALLONES+T, :Jbranch; 



returns to JWr 
L: alphabeta-1 



; Jump destination determination 

; L has (signed) distance from even byte of word addressed by mpc+1 



! 1,2 ,Jforward, J backward; 
!l,2,Jeven,Jodd; 



Jbranch: 
Jbranchf : 

Jf onward: 
Jbackward: 

J even: 
Jodd: 



T«-0+l, SH<0; 

SINK^M, BUSODD, TASK, :Jforward; 

temp^L RSH 1, :Jeven; 
temp*-L MRSH 1. :Jeven; 

T<-temp+l, :NOOP; 
T<-temp+l, :nextXB; 



dispatch fwd/bkwd target 
dispatch even/odd target 

stash positive word offset 
stash negative word offset 

fetch and execute even byte 
fetch and execute odd byte 
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JZEQB - if TOS (popped) = 0, jump PC-relative by alpha, assuming: 
stack has precisely one element 
JZEQB is A-aligned (also ensures no pending branch at entry) 



!l,2,Jcz.Jco; 

JZEQB: SINK<-stkO, BUS = 0; test TOS 

L<-stkp-l, TASK, :Jcz; 



JZNEB - if TOS (popped) ~= 0, jump PC-relative by alpha, assuming: 
stack has precisely one element 
JZNEB is A-aligned (also ensures no pending branch at entry) 



!l,2,JZNEBne,JZNEBeq; 

JZNEB: SINK<-stk0, BUS = 0; test TOS = 

L^stkp-1, TASK, :JZNEBne; 

JZNEBne: stkp*-L, :JB; branch, pick up alpha 

JZNEBeq: stkp*-L, :nextA; no branch, alignment => nextA 
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JEQn - if TOS (popped) = TOS (popped), jump PC-relative by n, assuming: 
stack has precisely two elements 



!1.2 


JEQnB 


,JEOr 


A; 






!7.1 


JEQNE 


:om; 








JEQ2 






IR^srO, 


L*"T 


JEQnB 


JEQ3 






IR-srl, 


[_<-j 


JEQnB 


JE04 






IR^sr2, 


L^T 


JEQnB 


JEQ5 






IR*-sr3, 


L*"T 


JEQnB 


JEQ6 






IR<-sr4, 


L<-j ^ 


JEQnB 


JEQ7 






IR^sr5, 


L*"T , 


JEQnB 


JE08 






IR^sre, 


L*"T 


JEQnB 


JEQ9 






IR<-sr7, 


L*"T 


JEQnB 



shake IR*- dispatch 

returns to J2 
returns to J3 
returns to J4 
returns to J5 
returns to J6 
returns to J7 
returns to J8 
returns to J9 



JEQB - if TOS (popped) = TOS (popped), jump PC-relative by alpha, assuming: 
stack has precisely two elements 
JEQB is A-aligned (also ensures no pending branch at entry) 



JEQB: 



IR<-srlO, :JEQnA; 



returns to JB 



JEQ common code 



!l,2,JEQcom,JNEcom; 



JEQnB: 
JEQnA: 



temp<-L RSH 1, L*-T, :JEQNEcom; 
temp<-L. L<-T, :JEQNEcom; 



!l,2,JEQne,JEQeq; 

JEQcom: L^stkp-T-1, :JEQne; 



JEQne: 
JEQeq: 



SINK<-temp, BUS, TASK, :Setstkp; 
Stkp<-L, IDISP, :JEQNExxx; 



return points from JEQNEcom 

temp:0. L:l (for JEQNEcom) 
temp:l, L:l (for JEQNEcom) 



L: old stkp - 2 

no jump, reset stkp 

jump, set stkp, then dispatch 



JEQ/JNE common code 



!7,1, JEQNEcom; 

!1, 2. JEQcom, JNEcom; 



appears above with JEQn 
appears above with JEQB 



JEQNEcom: T*-stkl; 

L<-stk0-T, SH = 0; 
T<-0+l, SH=0, :JEQcom; 



dispatch EQ/NE 

test outcome and return 



JEQNExxx: 



SINK^temp, BUS, :J2; 



even/odd dispatch 
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JNEn - if TOS (popped) ~= TOS (popped), jump PC-relative by n, assuming: 
stack has precisely two elements 



!l,2,JNEnB.JNEnA; 



JNE2 


IR^srO, 


L<-T. 


JNEnB 


JNE3 


IR^srl, 


L<-T, 


JNEnB 


JNE4 


IR^srZ. 


L^T, 


JNEnB 


JNE5 


IR^srS. 


L^T, 


JNEnB 


JNE6 


IR*-sr4, 


L<-T, 


JNEnB 


JNE7 


IR^sr5. 


L^T, 


JNEnB 


JNE8 


IR*-sr6, 


L<-T, 


JNEnB 


JNE9 


IR*-sr7, 


L^T, 


JNEnB 



returns 


to 


J2 


returns 


to 


J3 


returns 


to 


J4 


returns 


to 


J5 


returns 


to 


J6 


returns 


to 


J7 


returns 


to 


J8 


returns 


to 


J9 



JNEB - if TOS (popped) = TOS (popped), jump PC-relative by alpha, assuming: 
stack has precisely two elements 
JNEB is A-aligned (also ensures no pending branch at entry) 



JNEB: 



IR<-srlO, :JNEnA; 



returns to JB 



JNE common code 



JNEnB: 
JNEnA: 



temp<-L RSH 1, L<-0, :JEQNEcom; 
temp^L, L*-0, :JEQNEcom; 



!l,2,JNEne,JNEeq; 

JNEcom: L*-stkp-T-l, :JNEne; 



JNEne: 
JNEeq: 



stkp^L, IDISP, :JEQNExxx; 
SINK^temp, BUS, TASK, :Setstkp; 



temp:0, L:0 
temp:l, L:0 



L: old stkp 



jump, set stkp, then dispatch 
no jump, reset stkp 
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JrB - for r in {L,LE ,G .GE ,UL,ULE ,UG .UGE} 

if TOS (popped) r TOS (popped), jump PC-relative by alpha, assuming: 
stack has precisely two elements 
JrB is A-aligned (also ensures no pending branch at entry) 



The values loaded into IR are not returns but encoded actions: 
Bit 12: => branch if carry zero 

1 => branch if carry one (mask value: 10) 
Bit 15: => perform add-complement before testing carry 

1 => perform subtract before testing carry (mask value: 1) 
(These values were chosen because of the masks available for use with <-DISP 
in the existing constants ROM. Note that IR*- causes no dispatch.) 



JLB: 


IR*-10, 


:Jscale; 


JLEB: 


IR<-11, 


: Jscale; 


JGB: 


IR<-ONE 


, :Jscale; 


JGEB: 


IR*-0. 


: Jscale; 


JULB: 


IR^IO, 


:Jnoscale; 


JULES: 


IR<-11, 


:Jnoscale; 


JUGB: 


IR*-ONE 


, :Jnoscale 


JUGEB: 


IR^O. 


:Jnoscale; 



adc, branch if carry one 

sub, branch if carry one 

sub, branch if carry zero 

adc, branch if carry zero 

adc, branch if carry one 

sub, branch if carry one 

sub, branch if carry zero 

adc, branch if carry zero 



Comparison "subroutine": 



1,2, Jade, Jsub; 

! l,2,Jcz,Jco; 

1,2, Jnobz, Jbz; 

1,2, Jbo,Jnobo; 



appears above with JZEQB 



Jscale: 
Jnoscale: 

Jadjust: 



T^77777, :Jadjust; 
T*-ALLONES, :Jadjust; 

L*-stkl+T+l; 
temp*-L; 

SINK<-DISP, BUSODD; 
T<-stkO+T+l. :Jadc; 



L:stkl + (0 or 100000) 
dispatch ADC/SUB 



Jade: 
Jsub: 

J common: 



Jcz: 
Jco: 

Jnobz: 
Jbz: 
Jbo: 
Jnobo: 



L<-temp-T-l, :Jcommon; 
L*-temp-T, :Jcommon; 

T*-ONE; 

L«-stkp-T-l, ALUCY; 

SINK*-DISP, SINK^lgmlO, BUS = 0, TASK, :Jcz; 

stkp<-L, :Jnobz; 
stkp<-L, :Jbo; 

L<-mpc+l, TASK, :nextAput; 

T^ib, :JBx; 

T*-ib, :JBx; 

L<-mpc+l, TASK, :nextAput; 



perform add complement 
perform subtract 

warning: not T^O+1 
test ADC/SUB outcome 
dispatch on encoded bit 12 

carry is zero (stkp<-stkp-2) 
carry is one (stkp<-stkp-2) 

no jump, al ignment=>nextAa 

jump 

jump 

no jump, al ignment=>nextAa 
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JIW - see Principles of Operation for description 
assumes: 

stack contains precisely two elements 

if JIW is A-aligned, B byte is irrelevant 

alpha in B byte» beta in A byte of word after JIW 



1.2,JIuge,JIul; 
l,l,JIWx; 



JIW: 
JIWx: 



JIuge: 
JIul: 



L^Stkp-T-1, TASK, :JIWx; 

stkp«-L; 

T<-stkO; 

L^XMAR^mpc+1; 

mpc<-L; 

L*-stkl-T-l; 

ALUCY; 

T<-MD, :JIuge; 

L^mpc+1, TASK, :nextAput; 

L<-cp+T, TASK; 

taskhole<-L; 

T^taskhole; 

XMAR^stkO+T; 

NOP; 

L^MD-1. :Jbranch; 



stkp<-stkp-2 

load alphabeta 

do unsigned compare 



out of bounds - to 'nextA' 
(removing this TASK saves a 
word, but leaves a run of 
15 instructions) 
fetch <<cp>+alphabeta+X> 

L: offset 
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Loads 



Note: These instructions keep track of their parity 



LLn - push <<1p>+n> 

Note: LL3 must be odd! 



; Note: Ip is offset by 2, hence the adjustments below 



LLC 
LLl 
LL2 
LL3 
LL4 
LL5 
LL6 
LL7 



MAR^ 


lp-T-1 


:pushMD; 


MAR^ 


1p-l. 


pushMD; 


MAR*- 


Ip. :pL 


JShMD; 


MAR<- 


Ip+T, 


pushMD; 


MAR^ 


lp+T+1 


:pushMD; 


T^-3. 


SH = 0. 


:LL3; 


T*-4, 


$H = 0. 


:LL3; 


T<-5, 


SH = 0, 


:LL3; 



pick up ball 1 
pick up ball 1 
pick up ban 1 



LLB - push <<lp>+a1pha> 



LIB: 
LLBr: 



IR*-sr4, :Getalpha; 
T^n1poffset+T+l. SH=0, :LL3; 



returns to LLBr 

undiddle Ip, pick up ball 1 



LLDB - push <<lp>+alpha>, push <<lp>+a1pha+l> 

LLDB is A-aligned (also ensures no pending branch at entry] 



LLDB: T^lp, :LDcommon; 

LDcommon: T<-nlpoff set+T+1 , :Dpush; 
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LGn 



push <<gp>+n> 

Note: L62 must be odd! 



Note: gp is offset by 1, hence the adjustments below 



LGO 
LGl 
LG2 
LG3 
LG4 
LG5 
LG6 
LG7 



MAR*-gp-l, :pushMD; 
MAR<-gp, :pushMD; 
MAR^gp+T, :pushMD; 



MAR<-gp+T+l. 


:pushMD 


T<-3, SH = 0, 


LG2 




T^4, SH=0, 


L62 




T^5, SH=0, 


L62 




T^6, SH=0, 


LG2 





pick up ban 1 
pick up ball 1 
pick up ban 1 
pick up ban 1 



LGB - push <<gp>+a1pha> 



LGB: 
LGBr: 



IR^sr5, :Getalpha; 
T*-ngpoffset+T+l, SH=0, 



:LG2; 



returns to LGBr 

undiddle gp, pick up ban 1 



LGDB - push <<gp>+a1pha>, push <<gp>+alpha+l> 

LGDB is A-aligned (also ensures no pending branch at entry) 



LGDB: 



T<-gp+T+l, :LDcommon; 



T: gp-gpoff set+lpoff set 
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Lin - push n 



!l,2,LI0xB,LI0xA; 



keep ball 1 in air 



Note: all BUS dispatches use old stkp value, not incremented one 



LIO 
LIl 
LIZ 
LI3 
LI4 
LI5 
LI6 



LIOxB: 
LIOxA: 



L<-stkp+l, BUS, 


:LIOxB; 


L^stkp+1, BUS, 


:pushTlB; 


T^2, 


pushTB; 




T<-3, 


pushTB; 




T<-4, 


pushTB; 




T^5, 


pushTB; 




T*-6, 


pushTB; 





Stkp<-L, L<-0, TASK. :pushO; 
stkp*-L. BUS = 0. L<-0, TASK, :pushO; 



BUS=0 keeps branch pending 



LINl - push -1 



LINl: 



T<-ALLONES, :pushTB; 



LINl - push 100000 



LINl: 



T«-100000, :pushTB; 



LIB - push alpha 



LIB: 



IR<-sr2, :Getalpha; 



returns to pushTB 

Note: pushTlB will handle 

any pending branch 



LINB - push (alpha OR 377B8) 



LINB: 
LINBr: 



IR<-sr26. :Getalpha; 
T<-177400 OR T, :pushTB; 



returns to LINBr 



LIW - push alphabeta, assuming: 

if LIW is A-aligned, B byte is irrelevant 

alpha in B byte, beta in A byte of word after LIW 



LIW: 
LlWr: 



IR*-msrO. :FetchAB; 
L^-stkp+1, BUS. :pushTlA; 



returns to LlWr 
duplicates pushTA. but 
because of overlapping 
return points, we 
can't use it 
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Stores 



; SLn - <<1p>+n><-T0S (popped) 
; Note: SL3 is odd! 



; Note: Ip is offset by 2, hence the adjustments below 



SLO 
SLl 
SL2 
SL3 
SL4 
SL5 
SL6 
SL7 



MAR<-lp-T-l, :StoreB; 
MAR^-lp-1, :StoreB; 
MAR<-1p, :StoreB; 
MAR<-lp+T, : Stores ; 
MAR<-1p+T+l, :StoreB; 



T*-3, 


SH = 0, 


:SL3 


T<-4, 


SH = 0, 


:SL3 


T^5, 


SH = 0, 


:SL3 



SLB - <<lp>+alpha><-TOS (popped) 



SLB: 
SLBr: 



IR<-sr6, :Getalpha; 
T^n1poffset+T+l, SH=0, :SL3; 



returns to SLBr 

undiddle Ip. pick up ball 1 



SLDB - <<lp>+alpha+l>*-TOS (popped), <<lp>+alpha>*-TOS (popped), assuming: 
SLDB is A-aligned (also ensures no pending branch at entry) 



SLDB: T<-lp, :SDcommon; 

SDcommon: T^nlpoff set+T+1, :Dpop; 



MesacROM.mu 



24-Ju1-81 19:03:01 



Page 11 



SGn - <<gp>+n><-TOS (popped) 
Note: S62 must be odd! 



Note: gp is offset by 1, hence the adjustments below 



SGO 
SGI 
SG2 
SG3 



MAR^gp-1, :StoreB; 
MAR<-gp, :StoreB; 
MAR<-gp+T, :StoreB; 
MAR<-gp+T+l, : Stores ; 



SGB - <<gp>+a1pha>^T0S (popped) 



SGB: 
SGBr: 



IR«-sr7, :Getalpha; 
T<-ngpoffset+T+l, SH = 0, :S62; 



returns to SGBr 

undiddle gp, pick up ball 1 



SGDB " <<gp>+alpha+l>*-TOS (popped), <<gp>+alpha><-TOS (popped), assuming: 
SGDB is A-aligned (also ensures no pending branch at entry) 



SGDB: 



T^gp+T+1, :SDcommon; 



T: gp-gpoffset+lpoffset 
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Puts 



PLn - <<lp>+n>*-TOS (stack is not popped) 
! 1 ,1 .PLcommon; drop ball 1 

; Note: Ip is offset by 2, hence the adjustments below 



PLC 
PLl 
PL2 
PL3 



MAR<-lp-T-l, SH=0, :PLcommon; pick up ball 1 

MAR<-lp-l, SH = 0, :PLcommon; 
MAR«-lp, SH=0, : PLcommon; 
MAR<-lp+T, SH = 0, : PLcommon; 



PLcommon: L<-stkp, BUS, :StoreBa; don't decrement stkp 
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Binary operations 



Warning! Before altering this list, be certain you understand the additional addressing 
requirements imposed on some of these return locations! However, it is safe to add new 
return points at the end of the list. 

!37,4O,ADDr,SUBr,ANDr,ORr,XORr,MULr,DIVr.LDIVr,SHIFTr,EXCHr,RSTRr,WSTRr,W$Br,W$0r,WSFr,WFr, 
WSDBrb,WFSrb,BNDCKr.RWBLrb,WBLrb, ,,,,.,,,,,; 



Binary operations common code 
Entry conditions: 

Both IR and T hold return number. (More precisely, entry at 
'BincomB' requires return number in IR, entry at 'BincomA' requires 
return number in T. ) 
Exit conditions: 

left operand in L (M), right operand in T 

stkp positioned for subsequent push (i.e. points at left operand) 
dispatch pending (for pushO) on return 
if entry occurred at BincomA, IR has been modified so 
that mACSOURCE will produce 1 



; dispatches on stkp-1, so Binpopl = 1 mod 208 

! 17 , 20, Binpop, Binpopl ,Binpop2 ,Binpop3 ,Binpop4,Binpop5 ,Binpop6,Binpop7 , , 
! 1 , 2 , B i ncomB , B i ncomA ; 
!4, 1 ,Bincomx; 



BincomB: 


L*-T<-stkp-l, :Bincomx; 


Bincomx: 


stkp<-L, 


L^T; 




L*-M-l, I 


3US, TASK; 


Bincomd: 


temp2«-L 


, :Binpop; 


BincomA: 


L<-2000 OR T; 


Binpop: 


IR<-M, :l 


BincomB ; 


Binpopl: 


T<-stkl; 






L*-stkO, 


:Binend; 


Binpop2: 


T^stk2; 






L<-stkl, 


:Binend; 


Binpop3: 


T^stk3; 






L^stk2, 


:Binend; 


Binpop4: 


T*-stk4; 






L^stk3, 


:Binend; 


BinpopS: 


T^stkS; 






L<-stk4, 


:Binend; 


Binpop6: 


T<-stk6; 






Ustk5, 


:Binend; 


Binpop7: 


T<-stk7; 






L«-stk6, 


:Binend; 


Binend: 


SINK^DIi 


SP, BUS; 



shake IR<- in BincomA 

value for dispatch into Binpop 

L:value for push dispatch 
stash briefly 

make mACSOURCE produce 1 



SINK^temp2, BUS, :ADDr; 



perform return dispatch 
perform push dispatch 
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ADD - replace <TOS> with sum of top two stack elements 



ADD: 
ADDr: 



IR<-T<-retO, :BincomB; 

L*-M+T, mACSOURCE, TASK, :pushO; 



M addressing unaffected 



ADDOl - replace stkO with <stkO>+<stkl> 



!l,l,ADD01x; 

ADDOl: 
ADDOlx: 



T<-stkl-l. :ADD01x; 
T^StkO+T+1, SH=0; 
L*-stkp-l, :pushTlB; 



drop ball 1 



pick up ball 1 

no dispatch => to pushO 



SUB - replace <TOS> with difference of top two stack elements 



SUB: 
SUBr: 



IR<-T^retl. :BincomB; 

L*-M-T, mACSOURCE, TASK, :push0; 



M addressing unaffected 



AND - replace <TOS> with AND of top two stack elements 



AND: 
ANDr: 



IR<-T*-ret2, :BincomB; 

L^M AND T, mACSOURCE, TASK, :pushO; 



M addressing unaffected 



OR - replace <TOS> with OR of top two stack elements 



OR: 
ORr: 



IR^T<-ret3, :BiflComB; 

L^M OR T, mACSOURCE, TASK, :pushO; 



M addressing unaffected 



XOR - replace <TOS> with XOR of top two stack elements 



XOR: 
XORr: 



IR<-T*-ret4, :BincomB; 

L«-M XOR T, mACSOURCE, TASK, :pushO; 



M addressing unaffected 
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; MUL - replace <TOS> with product of top two stack elements 
; high-order bits of product recoverable by PUSH 



!7,l,MULDIVcoma; 

!l,2,GoR0MMUL,GoR0MDIV; 

!7,2,MULx,DIVx; 

MUL: IR<-T^ret5, :BincomB; 

MULr: AC1<-L. L*-T , :MULDIVcoma; 

MULDIVcoma: AC2*-L, L^O , :MULx; 

MULx: ACO^L, T<-0, :MULDIVcomb; 

DIVx: ACO^L, T<-0+l. BUS = 0, :MULDIVcomb; 

MULDIVcomb: L^MULDIVretloc-T-1 , SWMODE. :GoROMMUL; 

GoROMMUL: PC^L, :ROMMUL; 
GoROMDIV: PC<-L, :ROMDIV; 

MULDIVret: :MULDIVretl; 

MULDIVretl: T*-AC1; 

L*-stkp+l; 

L^T, SINK<-M, BUS; 

T<-ACO, :dpush; 



shakes stack dispatch 
also shakes bus dispatch 

stash multiplicand 

stash multiplier or divisor 

ACO*-0 keeps ROM happy 
BUS=0 => GoROMDIV 

prepare return address 

go to ROM multiply 
go to ROM divide 

No divide - someday a trap 
perhaps, but garbage now. 
Normal return 



Note! not a subroutine 
call , but a direct 
dispatch. 



DIV - push quotient of top two stack elements (popped) 
remainder recoverable by PUSH 



DIV: 
DIVr:. 



IR<-T*-ret6, :BincomB; 

AC1<-L, L<-T, BUS=0, :MULDIVcoma; 



BUS=0 => DIVx 



LDIV - push quotient of <T0S-1> . .<T0S-2>/-<T0S> (all popped) 
remainder recoverable by PUSH 



LDIV: 
LDIVf : 

LDIVr: 



IR<-sr27, :Popsub; 

AC2*-L; 

IR<-T*-ret7, :BincomB; 

AC1<-L, L^T, IR^O. :DIVx; 



get divisor 

stash it 

L:low bits, T:high bits 

stash low part of dividend 

and ensure mACSOURCE of 0. 
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; SHIFT - replace <TOS> with <T0S-1> shifted by <TOS> 
; <TOS> > => left shift, <T0$> < => right shift 



!7.1,SHIFTx; 

!l,2,Lshift,Rshift; 

!l,2.DoShift,$hiftdone; 

!l,2,DoRight.DoLeft; 

!l,l,Shiftdonex; 

SHIFT: IR^T*-retl0. :BincomB; 

SHIFTr: temp<-L, L^T , TASK, :SHIFTx; 
SHIFTx: count*-L; 

L<-T*-count; 

L<-0-T, SH<0; 

IR^srl, :Lshift; 

Lshift: L*-37 AND T, TASK, :Shiftcom; 

Rshift: T«-37, IR*-37; 

L<-M AND T, TASK, :Shiftcom; 

Shiftcom: count«-L, :Shiftloop; 

Shiftloop: L^count-1, BUS=0; 

count<-L, IDISP, :DoShift; 
DoShift: L«-temp, TASK, :DoRight; 

DoRight: temp*-L RSH 1, :Shiftloop; 
DoLeft: temp^L LSH 1, :Shiftloop; 

Shiftdone: SINK<-temp2, BUS, :Shiftdonex; 
Shiftdonex: L«-temp, TASK, :push0; 



shakes stack dispatch 



L: value, T: count 



L: -count, T: count 
IR^ causes no branch 

mask to reasonable size 

equivalent to IR^msrO 
mask to reasonable size 



test for completion 



dispatch to push result 
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Double-Precision Arithmetic 



DADD - add two double-word quantities, assuming: 
stack contains precisely 4 elements 



!l,l,DoRamDoubles; 

DADD: L<-4, SWMODE . :DoRamDoubles : 

DoRamDoubles: SINK^M, BUS, TASK, : ramOverf low; 



shake B/A dispatch 

drop ball 1 

go to overflow code in RAM 



DSUB - subtract two double-word quantities, assuming: 
stack contains precisely 4 elements 



DSUB: 



L<-5, SWMODE, :DoRamDoubles; 



drop ball 1 



DCOMP - compare two long integers, assuming: 
stack contains precisely 4 elements 

result left on stack is -1, 0, or +1 (single-precision) 
(i.e. result = sign(stkl, ,stk0 DSUB stk3,,stk2) ) 



DCOMP: 



L<-6, SWMODE, :DoRamDoubles; 



drop ball 1 



DUCOMP - compare two long cardinals, assuming: 

stack contains precisely 4 elements 

result left on stack is -1, 0, or +1 (single-precision) 

(i.e. result = sign(stkl, ,stk0 DSUB $tk3.,stk2) ) 



DUCOMP: 



L*"7, SWMODE, : DoRamDoubles; 



drop ball 1 
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Range Checking 



NILCK - check TOS for NIL (0), trap if so 

!1.2,InRange,0ut0fRange; 

NILCK: L^retl7, :Xpopsub; 

NILCKr: T<-ONE, SH = 0, :NILCKpush; 

NILCKpush: L*-stkp+T. :InRange; 

InRange: SINK*-ib, BUS = 0, TASK, :Setstkp; 
OutOf Range: T*-sBoundsFaul tml+T+1 . :KFCr; 



returns to NILCKr 
test TOS=0 



pick up ball 1 
T:SD index; go trap 



BNDCK - check subrange inclusion 

if TOS-1 -IN [0..TOS) then trap (test is unsigned) 
only TOS is popped off 



!7,l,BNDCKx; 

BNDCK: 

BNDCKr: 

BNDCKx: 



IR*-T<-ret22, :BincomB; 

L<-M-T. :BNDCKx; 

T<-0, ALUCY, :NILCKpush; 



shake push dispatch 

returns to BNDCKr 
L: value, T: limit 
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Reads 



Note: RBr must be odd! 



Rn - TOS^<<TOS>+n> 



RO 
Rl 
R2 
R3 

R4 



T«-0, SH=0. 


:RBr; 


T<-ONE, SH = 


, :RBr 


T^-2, SH=0, 


:RBr; 


T^3, SH=0, 


:RBr; 


T^4, SH=0, 


:RBr; 



RB - TOS«-<<TOS>+alpha>, assuming: 



!1.2,ReadB,ReadA; 



RB: 
RBr: 

ReadB: 
ReadA: 



IR*-srl5, :Geta1pha; 
L<-stkp-l, BUS. :ReadB; 

Stkp<-L, :MAStkT; 
stkp<-L, BUS = 0, :MAStkT; 



keep ball 1 in air 
returns to RBr 



to pushMD 
to pushMDA 



RDB - temp^<TOS>+alpha, push <<temp>>, push <<temp>+l>, assuming: 
RDB is A-aligned (also ensures no pending branch at entry) 



RDB: 



IR^sr30, :Popsub; 



returns to Dpush 



RDO - temp«-<TOS>. push <<temp>>, push <<temp>+l> 



RDO: 
RDOr: 



IR*-sr32. :Popsub; 
L<-0, :Dpusha; 



returns to RDOr 
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RILP - push <<<1p>+alpha[0-3]>+alpha[4-7]> 



RILP: 
RILPr: 



L*-ret0, :Spl italpha; 
T<-lp, iRIPcom; 



get two 4-bit values 
T:acldress of local 2 



RIGP - push <<<gp>+alpha[0-3]>+alpha[4-7]> 



!3,l,IPcom: 

RIGP: 
RIGPr: 

RIPcom: 

IPcom: 

IPcomx: 



L^retl, :Splitalpha; 
T«-gp+l, :RIPcom; 

IR«-msr0, : IPcom; 

T^-3+T+l; 
MAR*-lefthalf+T; 
L^righthalf ; 
T^MD, IDISP; 
MAR*-M+T, :pushMD; 



shake IR^ at WILPr 

get two 4-bit values 
T:adclress of global 2 

set up return to pushMD 

T:adclress of local or global 
start memory cycle 

T:local/global value 
start fetch/store 



RILO - push <<<lp>>> 



!1.2.RILxB.RILxA; 

RILO: MAR<-lp-T-l, :RILxB; 



RILxB: 
RILxA: 



IR<-msrO, L<-0, : IPcomx; 
IR^srl, L<-srl AND T, :IPcomx; 



fetch local 

to pushMD 

to pushMDA, L^0(!) 



RXLP - TOS*-«TOS>+«lp>+alpha[0-3]>+alpha[4-7]> 



RXLP: 

RXLPra: 

RXLPrb: 



L*-ret3, :Splitalpha; 
IR*-sr34, :Popsub; 
L*-righthalf+T, TASK; 
r1ghthalf*-L, :RILPr; 



will return to RXLPra 
fetch TOS 
L:T0S+alpha[4-7] 
now act like RILP 
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Writes 



Wn - <<TOS> (poppecl)+n><-<TOS> (popped) 



!l,2,WnB,WnA; 

WO 
Wl 
W2 

WnB: 

WnA: 



T*-0, :WnB; 
T*-ONE, :WnB; 
T*-2, :WnB; 

IR«-sr2, :Wsub; 

IR<-sr3, :Wsub; 



keep ban 1 in air 



returns to StoreB 
returns to StoreA 



Write subroutine: 
!7,l,Wsubx; 



Wsub: 
Wsubx: 



L<-stkp-l, BUS, :Wsubx; 
stkp<-L, IDISP, :MAStkT; 



shake IR<- dispatch 



WB - <<TOS> (popped)+a1pha><^<T0S-l> (popped) 



WB: 
WBr: 



IR<-srl6. :Getalpha; 
:WnB; 



returns to WBr 
branch may be pending 



WSB - act like WB but with stack values reversed, assuming: 

WSB is A-aligned (also ensures no pending branch at entry) 



!7,l,WSBx; 

WSB: 
WSBr: 

WSBx: 

WScom: 

WScoma: 



IR<-T^retl4, :BincomA; 
T*-M, L<-T, :WSBx; 

MAR<-ib+T, :WScom; 

temp<-L; 

L<-Stkp-1; 

MD*-temp ; 

mACSOURCE, TASK, :Setstkp; 



shake stack dispatch 
alignment requires BincomA 



WSO - act like WSB but with alpha value of zero 
!7,l,WS0x; 



WSO: 
WSOr: 



IR<-T<-retl5, :BincomB; 
T^M, L^T, :WSOx; 



shake stack dispatch 



WSOx: 



MAR*-T. : WScom; 
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WILP - <<lp>+a1pha[0-3]>+alpha[4-7] ^ <TOS> (popped) 



WILP: 
WILPr: 



L<-ret2. :Sp1italpha; 

IR^sr2; 

T^lp, :IPcom; 



get halves of alpha 
IPcom win exit to StoreB 
prepare to undiddle 



WXLP - <TOS>+<<lp>+alpha[0-3]>+a1pha[4-7] ^ <T0S-1> (both popped) 



WXLP: 

WXLPra: 

WXLPrb: 



L<-ret4, :Sp1italpha; 
IR<-sr35, :Popsub; 
L^righthalf+T. TASK; 
righthalf<-L, :WILPr; 



get halves of alpha 
fetch TOS 
L:T0S+alpha[4-7] 
now act 1 ike WILP 



WDB - temp<-alpha+<TOS> (popped), pop into <temp>+l and <temp>, assuming: 
WDB is A-aligned (also ensures no pending branch at entry) 



WDB: 



IR«-sr31, :Popsub; 



returns to Dpop 



WDO - temp<-<TOS> (popped), pop into <temp>+l and <temp> 



WDO: 
WDOr: 



L«-ret6, TASK, :Xpopsub; 
L<"0, :Dpopa; 



returns to WDOr 



WSDB - like WDB but with address below data words, assuming: 

WSDB is A-aligned (also ensures no pending branch at entry) 



!7,l,WSDBx; 




WSDB: 


IR<-sr24, :Popsub; 


WSDBra: 


saveret<-L; 




IR<-T^ret20, :BincomA 


WSDBrb: 


T^M, L*-T, : WSDBx; 


WSDBx: 


MAR^T<-ib+T+l; 




temp<-L, L*-T; 




temp2<-L, TASK; 




MD^saveret; 




MAR*-temp2-l, :WScoma 



get low data word 

stash it briefly 

alignment requires BincomA 

Lihigh data, T:address 

start store of low data word 

temp: high data 

temp2: updated address 

stash low data word 

start store of high data word 
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Long Pointer operations 



!l.l,RWBLcom; 



drop ball 1 



RBL - like RB, but uses a long pointer 



RBL: 



L^M AND NOT T, T<-M. SH = 0, :RWBLcom; 



L: retO, T: L at entry 



WBL - like WB, but uses a long pointer 



WBL: 



L<-T, T<-M. $H = 0, :RWBLcom; 



L: retl, T: L at entry 



; Common long pointer code 

!l,2.RWBLcomB,RWBLcomA; 

!l,l.RWBLxa; 

!7,l.RWBLxb; 

!7.1,WBLx; 

!3,4.RBLra.WBLra.WBLrc.; 

!3,4,RWBLdone,RBLdone, ,WBLdone; 



drop ball 1 

shake stkp dispatch 

shake stkp dispatch 



RWBLcom: 

RWBLcomB: 
RWBLcomA: 



RWBLra 
RWBLxa 
RWBLrb 
RWBLxb 



WBLx: 



RBLra 
WBLra 
WBLrb 



WBLrc: 

RWBLtail: 

RWBLdone: 

RBLdone: 
WBLdone: 



entry<-L, L<-T, : RWBLcomB; 

IR<-sr37, :Getalpha; 
IR^sr37, :GetalphaA; 

IR<-ret23, L^T, :RWBLxa; 

alpha<-L, :BincomB; 

MAR<-BankReg, : RWBLxb; 

L^T, T<-M; 

temp<-L; 

L*-alpha+T; 

T<-MD; 

MAR«-BankReg; 

frame<-L, L<-T; 

taskhole<-L, TASK; 

MD«-temp, :WBLx; 

XMAR<-f rame; 
L^entry+1, BUS; 
entry<-L, L<-T, :RBLra; 

T<-MD, :RWBLtail; 
IR<-ret24, :BincomB; 
T^M, :WBLx; 

MD*-M, : RWBLtail; 

MAR<-BankReg; 
SINK^-entry, BUS; 
MD<-taskhole . : RWBLdone ; 

L<-temp2+l, BUS, :pushTlB; 
L«-temp2, TASK. :Setstkp; 



stash return, restore L 



L: alpha byte 

stash alpha, get long pointer 

fetch bank register 

T: low half, L: high half 

temp: high pointer 

L: low pointer+alpha 

T: bank register to save 

reaccess bank register 

frame: pointer 

taskhole: old bank register 

set new alternate bank value 

start memory access 
dispatch RBL/WBL 
(L^T for WBLrc only) 

T: data from memory 
returns to WBLrb 
T: data to write 

stash data in memory 



dispatch return 
restore bank register 

temp2: original stkp-2 
temp2: original stkp-3 
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Unary operations 

XMESA Note: Untail is wired down by a pre-def in MesaROM.mu 



INC - TOS *- <T0S>+1 



INC: IR^srl4, :Popsub; 

INCr: T<-0+T+l. :pushTB; 



NEG - TOS ^ -<TOS> 



NEG: L^retll. TASK, :Xpopsub; 

NEGr: L*-0-T, :Untail; 



DBL - TOS <r 2*<T0S> 



DBL: IR*-sr25, :Popsub; 

DBLr: L<-M+T, :Untai1 ; 



Unary operation common code 
Untail: T<-M. :pushTB; 
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Stack and Miscellaneous Operations 



PUSH - add 1 to stack pointer 



!l,l.PUSHx; 

PUSH: 
PUSHx: 



L«-stkp+l, BUS, :PUSHx; 
SINK<-ib, BUS = 0, TASK, :Setstkp; 



BUS checks for overflow 
pick up ball 1 



POP - subtract 1 from stack pointer 



POP: 



L*-stkp-l, SH=0, TASK, :Setstkp; 



L=0 <=> branch 1 pending 
need not check stkp=0 



DUP - temp*-<TOS> (popped), push <temp>, push <temp> 



!l,l.DUPx; 

DUP: 
DUPx: 



IR<-sr2, :DUPx; 

L<-stkp, BUS, TASK, :Popsuba; 



returns to pushTB 
don't pop stack 



EXCH - exchange top two stack elements 



!l,l,EXCHx; 

EXCH: 
EXCHx: 

EXCHr: 



IR<-retll, :EXCHx; 

L<-stkp-l; 

L*-M+l, BUS. TASK, :Bincomd; 

T^M, L<-T, :dpush; 



drop ball 1 



dispatch on stkp-1 

set temp2<-stkp 

Note: dispatch using temp2 



LADRB - push alpha+lp (undiddled) 
!l,l,LADRBx; 



LADRB: 
LADRB r: 
LADRBx: 



IR<-srl0, :Getalpha; 
T*-nlpoffset+T+l, : LADRBx; 
L<-lp+T, :Untail; 



shake branch from Getalpha 
returns to LADRBr 



GADRB - push alpha+gp (undiddled) 
!l,l,GADRBx; 



GADRB: 

GADRBr: 

GADRBx: 



IR«-srll, :Getalpha; 
T*-ngpoffset+T+l, : GADRBx; 
L*-gp+T, :Untail; 



shake branch from Getalpha 
returns to GADRBr 
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;String Operations 



!7.1,STRsub; 

!l,2.STRsubA.STRsubB; 

!l,2.RSTRrx,WSTRrx; 



STRsub: 



STRsubA: 
STRsubB: 

STRsubcom: 



L*-stkp-l; 

Stkp<-L; 

L^-ib+T; 

SINK^M, BUSODD, TASK; 

count<-L RSH 1, :STRsubA; 

L<-177400, :STRsubcom; 
L<-377, :STRsubcom; 

T*-temp; 

MAR^COunt+T; 

T*-M; 

SINK^DISP. BUSODD; 

mask<-L. SH<0. :RSTRrx; 



shake stack dispatch 

update stack pointer 
compute index and offset 



left byte 
right byte 

get string address 

start fetch of word 

move mask to more useful place 

dispatch to caller 

dispatch B/A. mask for WSTR 



RSTR - push byte of string using base (<T0S-1>) and index (<TOS>) 
assumes RSTR is A-aligned (no pending branch at entry) 



!1,2,RSTRB,RSTRA; 



RSTR: 

RSTRr: 

RSTRrx: 

RSTRB: 
RSTRA: 

RSTRcom: 



IR«-T*-retl2. :BincomB; 

temp<-L , : STRsub; 

L^MD AND T. TASK, : RSTRB; 

temp<-L, : RSTRcom; 
temp*-L LCY 8, : RSTRcom; 

T*-temp, ipushTA; 



stash string base address 
isolate good bits 



right-justify byte 
go push result byte 



WSTR - pop <T0S-2> into string byte using base (<T0S-1>) and index (<TOS>) 
assumes WSTR is A-aligned (no pending branch at entry) 



!1,2,WSTRB,WSTRA; 



WSTR: 

WSTRr: 

WSTRrx: 

WSTRB: 
WSTRA: 

WSTRrA: 
WSTRrB: 



IR<-T<-retl3, :BincomB; 

temp<-L, :STRsub; 

L*-MD AND NOT T, : WSTRB; 

temp2<-L, L<-retO, TASK, :Xpopsub; 
temp2*-L. L^retO+1, TASK, :Xpopsub; 

taskhole<-L LCY 8; 
T<-taskhole. :WSTRrB; 

T<-mask.T; 

L<-temp2 OR T; 

T<-temp; 

MAR*-count+T; 

TASK; 

MD*-M, : next A; 



stash string base 
isolate good bits 

stash them, return to WSTRrB 
stash them, return to WSTRrA 

move new data to odd byte 



retrieve string address 
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Field Instructions 



temp2 is coded as follows: 

- RF, RFS 

1 - WF. WSF, WFS 

2 - RFC 



7ol.3,2,RFrr,WFrr; 

!7,l,Fieldsub; 

; !7,l,WFr; (required by WSFr) is implicit in retl7 (!) 



returns from Fieldsub 
shakes stack dispatch 



RF - push field specified by beta in word at <TOS> (popped) + alpha 
if RF is A-aligned, B byte is irrelevant 
alpha in B byte, beta in A byte of word after RF 



RF: 

RFr: 

RFrr: 



IR<-srl2, :Popsub; 
L<-ret0, :Fieldsub; 
T^-mask.T, :pushTA; 



alignment requires pushTA 



WF - pop data in <T0S-1> into field specified by beta in word at <TOS> (popped) + alpha 
if WF is A-aligned, B byte is irrelevant 
alpha in B byte, beta in A byte of word after WF 



! 1 ,2 ,WFnzct ,WFret ; - see location-specific definitions 



WF: 
WFr: 

WFrr: 



WFnzct: 
WFret: 



IR<-T<-retl7, :BincomB; 
newfield<-L, L^retO+1, :Fieldsub; 

T<-mask; 

L^M AND NOT T; 

temp<-L; 

T*-newf ield.T; 

Utemp OR T, TASK; 

CYCOUT*-L; 

T<-index, BUS = 0; 

L<-WFretloc, :WFnzct; 

PC*-L; 

L<-20-T, SWMODE; 

T^CYCOUT, :RAMCYCX; 

MAR<-f rame; 

L<-stkp-l; 

MD*-CYCOUT, TASK, :JZNEBeq; 



L:new data, T:address 
(actually, L^retl) 



set old field bits to zero 

stash result 

save new field bits 

merge old and new 

stash briefly 

get position, test for zero 

get return address from ROM 

stash return 

L: remaining count to cycle 

go cycle remaining amount 

start memory 

pop remaining word 

stash data, go update stkp 



WSF - like WF, but with top two stack elements reversed 
if WSF is A-aligned, B byte is irrelevant 
alpha in B byte, beta in A byte of word after WSF 



WSF: 
WSFr: 



IR<-T^retl6, :BincomB; 
L<-T, T^M, :WFr; 



L:address, T:new data 
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RFS - like RF, but with a word containing alpha and beta on top of stack 
if RFS is A-aligned, B byte is irrelevant 



RFS: 
RFSra: 

RFSrb: 



L*-retl2, TASK, :Xpopsub; 

temp^L; 

L^retl3, TASK, :Xpopsub; 

L<-retO, BUS = 0, :Fieldsub; 



get alpha and beta 

stash for WFSa 

T:address 

returns quickly to WFSa 



WFS - like WF, but with a word containing alpha and beta on top of stack 
if WFS is A-aligned, B byte is irrelevant 



!l,2,Fieldsuba,WFSa; 



WFS: 
WFSra: 

WFSrb: 
WFSa: 



L*-retl4, TASK, :Xpopsub; 

temp*-L; 

IR^T<-ret21, 

newf ield<-L, 

f rame*-L; 

T^177400; 

L^-temp AND T, T<-temp, :Getalphab; 



:BincomB; 
L<-retO+l, BUS=0, 



Fieldsub; 



get alpha and beta 
stash temporarily 
L:new data, T:address 
returns quickly to WFSa 
stash address 

to separate alpha and beta 
L:alpha, T:both 
returns to Fieldra 



RFC - like RF, but uses <cp>+<alpha>+<TOS> as address 
if RFC is A-aligned, B byte is irrelevant 
alpha in B byte, beta in A byte of word after RF 



RFC: 
RFCr: 



L«-retl6, TASK, :Xpopsub; 

L<-cp+T; 

T<-M; 

L<-ret2, :Fieldsub; 



get index into code segment 

T:address 
returns to RFrr 
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Field instructions common code 

Entry conditions: 

L holds return offset 
T holds base address 

Exit conditions: 

mask: right- justified mask 

frame: updated address, including alpha 

index: left cycles needed to right-justify field [0-15] 

L,T: data word from location <frame> cycled left <index> bits 



7o2 , 3 , 1 , NotCodeSeg . IsCodeSeg ; 



Fieldsub: 
Fieldsuba: 

Fieldra: 

Fieldrb: 



NotCodeSeg: 
IsCodeSeg: 



temp2*-L, L*-T, IR*-msrO, 
frame*-L, :GetalphaA; 



TASK, :Fieldsuba; 



L<-ret5; 

saveret*-L, :Splitcomr; 

T<-righthalf ; 

MAR«-MASKTAB+T; 

T*-lefthalf+T+l; 

L*-17 AND T; 

index<-L; 

L<-MD, TASK; 

mask*-L; 

SINK^temp2, BUS; 

T<-frame, : NotCodeSeg; 

L<-MAR<-ib+T, : Stash FieldLoc; 

XMAR^ib+T. :DoCycle; 



stash return 
stash base address 
T: beta, ib: alpha 

get two halves of beta 
index for MASKTAB 
start fetch of mask 
L:left-cycle count 
mask to 4 bits 
stash position 
L:mask for caller's use 
stash mask 
temp2=2 <=> RFC 
get base address 
add alpha 
add alpha 



StashFieldLoc: 
DoCycle: 



Fieldrc : 



frame^L, : DoCycle; 

L<-Fieldretloc; 

PC<-L; 

T^MD, SWMODE; 

L*-index, :RAMCYCX; 

SINK*-temp2, BUSODD; 

L^T<-CYCOUT, :RFrr; 



stash updated address for WF 
return location from RAMCYCX 

data word into T for cycle 
count to cycle, go do it 
return dispatch 
cycled data word in L and T 
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MesadROM.Mu - Xfer, State switching, process support, Nova interface 
Last modified by Levin - December 21, 1979 11:14 AM 



Frame Allocation 



Alloc subroutine: 

allocates a frame 
Entry conditions: 

frame size index (fsi) in T 
Exit conditions: 

frame pointer in L, T, and frame 

if allocation fails, alternate return address is taken and 
temp2 is shifted left by 1 (for ALLOC) 



l,2,ALL0Cr,XferGr; subroutine returns 

l,2,ALL0Crf ,XferGrf ; failure returns 

3,4,AllocO,Allocl,Alloc2,Alloc3; dispatch on pointer flag 

if more than 2 callers, un-comment the following pre-def inition: 
! 17, 1 ,Allocx; shake IR<- dispatch 



AllocSub: L*-avml+T+l, TASK, :Allocx; 

Allocx: entry<-L; 

L<-MAR*-entry; 

T*-3; 

L*-MD AND T, T*-MD; 

temp^L, L<-MAR<-T; 

SINK<-temp, BUS; 

frame*-L, :AllocO; 



fetch av entry 

save av entry address 

mask for pointer flags 
{L<-MD AND 3, T<-MD) 
start reading pointer 
branch on bits 14:15 



Bits 14:15 = 00, a frame of the right index is queued for allocation 



AllocO: 



L^MD, TASK; 
temp<-L; 
MAR<-entry ; 
L<-T^frame, IDISP; 
MD*-temp, :ALLOCr; 



new entry for frame vector 
new value of vector entry 
update frame vector 
establish exit conditions 
update and return 



Bits 14:15 = 01, allocation list empty: restore argument, take failure return 



Allocl: 



L<-temp2, IDISP, TASK; 
temp2<-L LSH 1, :ALLOCrf; 



restore parameter 
allocation failed 



Bits 14:15 = 10, a pointer to an alternate list to use 



Alloc2: 
Allocp: 



temp*-L RSH 1, : Allocp; 

L<-temp, TASK; 
temp<-L RSH 1; 
T*-temp, : AllocSub; 



indirection: index*-index/4 



A110C3: 



temp<-L RSH 1. : Allocp; 



(treat type 3 as type 2) 
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Free subroutine: 

frees a frame 

Entry conditions: address of frame is in 'frame' 

Exit conditions: 'frame' left pointing at released frame (for LSTF] 



!3,4,RETr,FREEr,LSTFr. ; 
!17,l,Freex; 



FreeSub: 
Freex: 



MAR*-frame-l; 

NOP; 

T*-MD; 

L<-MAR*"avml+T+l; 

entry<-L; 

L*-MD; 

MAR^f name; 

temp<-L. TASK; 

MD«-temp; 

MAR<-entry; 

IDISP, TASK; 

MD<-frame, :RETr; 



FreeSub returns 
shake IR*- dispatch 

start read of fsi word 

wait for memory 

T<-index 

fetch av entry 

save av entry address 

read current pointer 

write it into current frame 

write! 

entry points at frame 

free 
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ALLOC - allocate a frame whose fsi is specified by <TOS> (popped) 



1 , l,Savpcinf rame; (here so ALLOCrf can call it) 

The following logically belongs here; however, because the entry point to general Xfer is 
known to the outside world, the real declaration appears in MesaROM.mu. 
!7, 10, XferGT, Xfer, Mstopr,PORTOpc,LSTr. ALLOCrf r, , ; return points for Savpcinframe 

l,2,doAllocTrap,XferGfz; used by XferGrf 



ALLOC: L«-ret7, TASK, :Xpopsub; 

ALLOCrx: temp2*-L LSH 1, IR^msrO, :AllocSub; 

ALLOCr: L<-stkp-»-l, BUS, :pushTlB; 



returns to ALLOCrx 
L,T: fsi 
duplicates pushTB 



Allocation failed - save mpc, undiddle Ip, push fsi*4 on stack, then trap 



ALLOCrf: IR«-sr5, :Savpcinf rame; 
ALLOCrfr: L*-temp2, TASK, :doAl locTrap ; 



failure because lists empty 
pick up trap parameter 



Inform software that allocation failed 



doAllocTrap: 



ATPreg*-L; 
T^sAllocTrap, :Mtrap; 



store param. to trap proc. 
go trap to software 



FREE - release the frame whose address is <TOS> (popped) 



FREE: 
FREErx: 

FREEr: 



L<-retlO, TASK, :Xpopsub; 
frameoL, TASK; 
IR<-srl, :FreeSub; 
: next; 



returns to FREErx 
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Descriptor Instructions 



DESCB ~ push <<gp>+gfi off set>+2*alpha+l (masking gfi word appropriately) 
DESCB is assumed to be A-aligned (no pending branch at entry) 



DESCB: T<-gp; 

T<-ngpoffset+T+l. :DESCBcom; 

DESCBcom: MAR«-gf ioff set+T; 
T<-gf imask; 
T^MD.T; 
L^ib+T, T«-ib; 
T<-M+T+l. :pushTA; 



T:address of frame 

start fetch of gfi word 

mask to isolate gfi bits 

T:gfi 

L:gfi+alpha, T:alpha 

pushTA because A-aligned 



DESCBS - push <<TOS>+gfi of f set>+2*alpha+l (masking gfi word appropriately) 
DESCBS is assumed to be A-aligned (no pending branch at entry) 



DESCBS: 



L<-retl5, TASK, :Xpopsub; 



returns to DESCBcom 
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Transfer Operations 



Savpcinframe subroutine: 

stashes C-relative (mpc,ib) in current local frame 
undiddles Ip into my and 1p 
Entry conditions: none 
Exit conditions: 

current frame+1 holds pc relative to code segment base (+ = even, - 

Ip is undiddled 

my has undiddled Ip (source link for Xfer) 



odd) 



! 1 , 1 .Savpcinframe; 

!7,10,XferGT.Xfer.Mstopr.P0RT0pc,L$Tr,ALL0Crfr, , 
7,l,Savpcx; 
l,2,Spcodd,Spceven; 



required by PORTO 
returns (appear with ALLOC) 
shake IR«- dispatch 
pc odd or even 



Savpcinframe: 
Savpcx: 



Spcodd: 
Spceven: 



Spcopc: 



T*-cp, :Savpcx; 
L<-mpc-T; 
SINK<-ib. BUS = 0; 
T+-M. :Spcodd; 

L«-0-T, TASK. :Spcopc; 
L<-0+T+l, TASK, :Spcopc; 

taskhole<-L; 
L<-0; 

T<-npcoffset ; 
MAR^lp-T, T*-lp; 
ib<-L; 

L^-nlpoffset+T+1; 
MD*-taskhole; 
my«-L. IDISP. TASK; 
lp<-L, :XferGT; 



code segment base 
L is code-relative pc 
check for odd or even pc 
pick up pc word addr 

- pc => odd, this word 
+ pc => even, next word 

pc value to save 

(can't merge above - TASK) 

offset to pc stash 

(MAR^lp-npcoffset, T<-lp) 

clear ib for XferG 

L:undiddled Ip 

stash pc in f rame+pcof f set 

store undiddled Ip 
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Loadgc subroutine: 

load global pointer and code pointer given local pointer or GFT pointer 
Entry conditions: 

T contains either local frame pointer or GFT pointer 

memory fetch of T has been started 

pending branch (1) catches zero pointer 
Exit conditions: 

Ip diddled (to framebase+6) 

mpc set from second word of entry (PC or EV offset) 

first word of code segment set to 1 (used by code swapper) 
Assumes only 2 callers 



!l,2.Xfer0r,Xferlr; 
1 , 2 » Loadgc , LoadgcTrap ; 
l,2,LoadgcOK,LoadgcMull ; 
1,2, Loadgcin , LoadgcSwap ; 
1,2, LoadgcDiv2,LoadgcDiv4; 
1,2, LoadgcNoXM , LoadgcIsXM ; 
l,2,DoLoad,NoLoad; 



Loadgc: 



LoadgcOK: 
Loadgcin: 



DoLoad: 
LoadgcShift: 
LoadgcDiv2: 
LoadgcDiv4: 



LoadgcNoXM: 
LoadgcIsXM: 



NoLoad: 



L<-lpoffset+T; 

Ip^L; 

T^MD; 

L<-MD; 

MAR«-cpoffset+T; 

mpc<-L, L^T; 

L«-cpoffset+T+l, SH=0; 

taskhole<-L, :LoadgcOK; 

L<-MD, BUSODD, TASK; 
cp^L, :LoadgcIn; 

MAR*-BankReg ; 

T«-taskhole+l; 

L^gp-T-1; 

T<-14, SH = 0; 

L^MD AND T, : DoLoad; 

temp2<-L, :LoadgcShift; 

newfield<-L RSH 1, L<-0-T, :LoadgcDiv2; 

L*-newfield. SH<0. TASK. : LoadgcShift ; 

MAR<-T<-taskhole; 

L<-gpcpoffset+T; 

gp^L; 

T*-177400; 

L^MD AND T, T<-MD; 

T^3.T, SH=0; 

MAR<-BankReg , : LoadgcNoXM; 

T<-newfield, :LoadgcIsXM; 
L<-temp2 OR T. TASK; 
MD«-M; 

XMAR<-cp; 
IDISP, TASK; 
MD^ONE, :XferOr; 



return points 

good global frame or null 
in-core or swapped out 
first/second shift 
short/long codebase 
changing G or not 

diddle (presumed) Ip 

(only correct if frame ptr) 

global frame address 

2nd word (PC or EV offset) 

read code pointer 

copy g to L for null test 

test gf=0 

taskhole:addr of hi code base 

L: low bits of code base 
stash low bits, branch if odd 

access bank register 
T:addr of global 
compare with current gp 
mask to save primary bank 
L: primary bank *4 
temp2: primary bank *4 
newfield: bank*2, L: negative 
SH<0 forces branch, TASK safe 
fetch high bits of code base 
diddle gp 

mask for high bits 

T: bank if long codebase 
initiate store 

T: MDS bank 

L: new bank registers 

stash bank 

access first cseg word 
dispatch return 



picked up global frame of zero somewhere, call it unbound 

BUSODD may be pending 



!l.l,Stashmx; 

LoadgcNull: T<-sUnbound, :Stashmx; 



swapped code segment, trap to software 
LoadgcSwap: T<-sSwapTrap, :Stashmx; 



destination link = 
LoadgcTrap: T<-sControl Fault, :Mtrap; 
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CheckXferTrap subroutine: 

Handles Xfer trapping 
Entry conditions: 

IR: return number in DISP 

T: parameter to be passed to trap routine 
Exit conditions: 

if trapping enabled, initiates trap and doesn't return. 



3,4.Xfers,XferG,RETxr, ; 
1,2, NoXf erTrap , DoXf erTrap ; 
3,l,DoXferTrapx; 



returns from CheckXferTrap 



CheckXferTrap: L^XTSreg, BUSODD; 

SINK^-DISP, BUS, :NoXferTrap; 



XTSreg[15]=l => trap 
dispatch (possible) return 



NoXferTrap: 



XTSreg^L RSH 1. :Xfers; 



reset XTSreg[15] to or 1 



DoXf erTrap: 
DoXferTrapx: 



L<-DISP, :DoXferTrapx; 
XTSreg<-L LCY 8, L<-T; 
XTPreg<-L; 
T«-sXferTrap, :Mtrap; 



tell trap handler which case 
L:trap parameter 

off to trap sequence 
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Xfer open subroutine: 

decodes general destination link for Xfer 
Entry conditions: 
source link in my 
destination link in mx 
Exit conditions: 

if destination is frame pointer, does complete xfer and exits to Ifetch. 
if destination is procedure descriptor, locates global frame and entry 
number, then exits to 'XferG'. 



! 3 , 4 , Xf e rO , Xf e n , Xf e r2 , Xf e r3 

Xfer: 

Xfers: 



T<-mx ; 

IR«-0. :CheckXferTrap; 

L<-3 AND T; 

SINK^M, L^T, BUS; 

SH=0, MAR^T, :XferO; 



destination link type 

mx[14:15] is dest link type 

extract type bits 
L:dest link, branch on type 
check for link = 0. Memory 
data is used only if link 
is frame pointer or indirect 



mx[14-15] = 00 

Destination link is frame pointer 



XferO: 
XferOr: 



IR<-msrO, :Loadgc; 
L<-T*-mpc; 



to LoadgcNull if dest link = 
offset from cp: - odd, + even 



; If 'brkbyte' ~= 0, we are proceeding from a breakpoint. 

; pc points to the BRK instruction: 

; even pc => fetch word, stash left byte in ib, and execute brkbyte 

; odd pc => clear ib, execute brkbyte 

> 

! l,2,Xdobreak,Xnobreak; 

!l,2,Xfer0B,Xfer0A; 

!l,2.XbrkB,XbrkA; 

!l,2,XbrkBgo,XbrkAgo; 



SINK^brkbyte, BUS=0; 
SH<0, l<rO, :Xdobreak; 



set up by Loadstate 
dispatch even/odd pc 



Not proceeding from a breakpoint - simply pick up next instruction 



Xnobreak: 



:XferOB; 



XferOB: 
XferOA: 



L<-XMAR<-cp+T , : nextAdeaf a ; 

L^XMAR^cp-T; 

mpc*"L, :nextXBni; 



fetch word, pc even 
fetch word, pc odd 



Proceeding from a breakpoint - dispatch brkbyte and clear it 



Xdobreak: ib<-L, iXbrkB; 

XbrkB: IR^sr20; 

L<-XMAR<-cp+T , : Getal phaAx ; 

XbrkA: L^cp-T; 

mpc<-L. UO, BUS=0, :XbrkBr; 

XbrkBr: SINK^brkbyte. BUS, :XbrkBgo; 

XbrkBgo: brkbyte^L RSH 1, T*-0+l, :NOOP; 

XbrkAgo: brkbyte^L, T<-0+l, BUS=0. :NOOP; 



clear ib for XbrkA 

here if BRK at even byte 
set up ib (return to XbrkBr) 

here if BRK at odd byte 

ib already zero (to XbrkAgo) 

dispatch brkbyte 

clear brkbyte, act like nextA 
clear brkbyte, act like next 
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mx[14-15] = 01 

Destination link is procedure descriptor: 
mx[0-8]: GFT index (gfi) 
mx[9-13]: EV bias, or entry number (en) 



Xferl: 



Xferlr: 



temp<-L RSH 1; 
COunt<-L MLSH 1; 
L<-count, TASK; 
count*-L LCY 8; 
L^count. TASK; 
count^L LSH 1; 
T<-count; 
T*-1777.T; 
MAR^gftml+T+1; 
IR<-srl, :Loadgc; 

L^-temp, TASK; 
count*-L RSH 1; 
T<-count ; 
T<-enniask.T; 
L<-mpc+T+l, TASK; 
count*-L LSH 1, :XferG; 



tenip:ep*2+garbage 
since L=T, count<-L LCY 1; 
gfi now in 0-7 and 15 
count:gfi w/high bits garbage 

count:gfi*2 w/high garbage 

T:gfi*2 

fetch 6FT[T] 

pick up two word entry into 

gp and mpc 

L:en*2+high bits of garbage 

count:en+high garbage 

T:en 

(mpc has EV base in code seg) 

count:ep*2 



mx[14-15] = 10 

Destination link is indirect: 

mx[0-15]: address of location holding destination link 



Xfer2: 



NOP; 

T<-MD, :Xfers; 



wait for memory 



mx[14-15] = 11 

Destination link is unb^ound: 

mx[0-15]:. passed to trap handler 



XferS: 



T*-sUnbound, :Stashmx; 
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XferG open subroutine: 

allocates new frame and patches links 

Entry conditions: 

'count' holds index into code segment entry vector 
assumes Ip is undiddled (in case of AllocTrap) 
assumes gp (undiddled) and cp set up 

Exit conditions: 

exits to instruction fetch (or AllocTrap) 



Pick up new pc from specified entry in entry vector 



XferGT: 


T<-count; 




IR<-ONE, :CheckXferTrap; 


XferG: 


T*-count; 




XMAR*-cp+T; 




T^cp-1; 


* 


IR<-srl; 




L<-MD+T ; 




T^MD; 




mpc<-L; 




T*-377.T. :AnocSub; 



Stash source link in new frame, establishing dynamic link 



XferGr: 



MAR^retlinkoffset+T; 
L^lpoffset+T; 
lp<-L; 
MD<-my ; 



parameter to CheckXferTrap 

index into entry vector 
fetch of new pc and fsi 
point just before bytes 
(main loop increments mpc) 
note: does not cause branch 
relocate pc from cseg base 
second word contains fsi 
new pc setup, ib already 
mask for size index 



T has new frame base 
diddle new Ip 
install diddled Ip 
source link to new frame 



Stash new global pointer in new frame (same for local call] 

MAR<-T; 
T*-gpoffset; 
L<-gp-T, TASK; 
MD<-M, :nextAdeaf; 



write gp to word of frame 
offset to point at gf base 
subtract off offset 
global pointer stashed, GO! 



Frame allocation failed - push destination link, then trap 
!l,2.doAllocTrap,XferGfz; 



XferGrf : 



L*-mx, BUS = 0; 

T*-count-l, : doAllocTrap; 



(appears with ALLOC) 

pick up destination, test = 
T:2*ep+1 



if destination link is zero (i.e. local procedure call), we must first 
fabricate the destination link 



XferGfz: 



L<-T, T*-ngf ioffset; 

MAR*-gp-T; 

count^-L LSH 1; 

L*-count-l; 

T*-gf imask; 

T^MD.T; 

L<-M+T, :doAnocTrap; 



offset from gp to gfi word 

start fetch of gfi word 

count:4*ep+2 

L:4*ep+1 

mask to save gfi only 

T:gfi 

L:gfi+4*ep+l (descriptor) 
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Getlink subroutine: 

fetches control link from either global frame or code segment 
Entry conditions: 

temp: - (index of desired link + 1) 

IR: DISP field zero/non-zero to select return point {2 callers only) 
Exit conditions: 

L,T: desired control link 



l,2,EFC9etr,LLKBr; 

1 ,2,f ramel ink, code 1 ink; 

7,l,Fetchlink; 



return points 
shake IR*- in KFCB 



Getlink: T*"gp; 

MAR<-T<-ngpof f set+T+1 ; 

L*-temp+T, T<-temp; 

taskhole*-L; 

L<-cp+T; 

SINK<-MD, BUSODD, TASK; 

temp2<-L, :framelink; 



diddled frame address 

fetch word of global frame 

L:address of link in frame 

stash it 

L:address of link in code 

test bit 15 of word zero 

stash code link address 



framelink: MAR<-taskhole, :Fetchlink; 
codelink: XMAR<-temp2, :Fetchlink; 

Fetchlink: SINK^DISP, BUS=0; 
L<-T^MD, :EFCgetr; 



fetch link from frame 
fetch 1 ink from code 

dispatch to caller 
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; EFCn - perform XFER to destination specified by external link n 
; !l,l,EFCr; implicit in EFCr's return number (23B) 



EFCO 


IRoONE. T 


^ONE- 


1, 


EFCl 


IR<-T<-ONE, 


:EFCr; 


EFC2 


IR<-T<-2, : 


EFCr; 




EFC3 


IR^T*-3, : 


EFCr; 




EFC4 


IR^T^4, : 


EFCr; 




EFC5 


IR*-T<-5, : 


EFCr; 




EFC6 


IR^T<-6, : 


EFCr; 




EFC7 


IR*-T<-7, : 


EFCr; 




EFC8 


IR^T^IO, 


:EFCr 




EFC9 


IR^T<-11, 


:EFCr 




EFCK 


): IR^T<-12, 


:EFCr 




EFCi: 


L: IR*-T<-13, 


:EFCr 




EFC12 


I: IR^T*-14, 


:£FCr 




EFCi: 


J: IR^T^IS, 


:EFCr 




EFCl^ 


I: IR^T^ie, 


:EFCr 




EFCIJ 


): IR<-T<-17, 


:EFCr 





:EFCr; 



0th control link 
1st control link 



; EFCB - perform XFER to destination specified by external link 'alpha' 

!l,l,EFCdoGetlink; shake B/A dispatch (Getalpha) 



EFCB: IR*-sr23, :Getalpha; 

EFCr: L*-0-T-l, TASK, : EFCdoGetl ink; 

EFCdoGetl ink: temp^L, :Getlink; 

EFCgetr: IR<-srl, :SFCr; 



fetch link number 
L:-{1 ink number+1) 

stash index for Getlink 
for Savpcinf rame; no branch 



; SFC - Stack Function Call (using descriptor on top of stack) 



SFC: 
SFCr: 



IR<-srl, :Popsub; 
mx<-L, :Savpcinf rame; 



get dest link for xfer 

now assume IR still has srl 

set dest link, return to Xfer 
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KFCB - Xfer using destination <<SD>+a1pha> 



!l,l,KFCr; implicit in KFCr's return number (21B) 
l,l.KFCx; 
!7 , 1 , Fetch! ink; appears with Getlink 



KFCB: 
KFCr: 
KFCx: 



IR*-sr21, :Getalpha; 
IR<-avml, T«-avml+T+l, :KFCx; 
MAR*-sdoff set+T. : Fetch! ink; 



shake B/A dispatch (Getalpha) 



fetch a!pha 

DISP must be non zero 

Fetch! ink shakes IR<- dispatch 



BRK - Breakpoint (equivalent to KFC 0) 



BRK: 



ib^L, T<-sBRK, :KFCr; 



ib = <=> BRK B-a!igned 



Trap sequence: 

used to report various faults during Xfer 
Entry conditions: 

T: index in SD through which to trap 

Savepcinf name has already been called 
entry at Stashmx puts destination link in OTPreg before trapping 



!l,l,Stashmx; above with Loadgc code 



Stashmx: 

Mtrap: 

Mtrapa: 



L«-mx; 

OTPreg^L, :Mtrap; 

T<-avml+T+l; 

MAR<-sdoffset+T; 

NOP; 

L^MD. TASK; 

mx^L, :Xfer; 



can't TASK, T has trap index 

fetch dest link for trap 
(enter here from PORTO) 
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LFCn - call local procedure n (i.e. within same global frame) 



!l,l.LFCx; 



Shake B/A dispatch 



LFCl 
LFC2 
LFC3 
LFC4 
LFC5 
LFC6 
LFC7 
LFC8 

LFCx: 



L*-2, 


LFCx; 


L<-3, 


LFCx; 


L^4, 


LFCx; 


L^5, 


LFCx; 


L^6, 


LFCx; 


L^7, 


LFCx; 


L<-10, 


:LFCx 


L<-11, 


:LFCx 



count^L LSH 1. L*-0, IR<-msrO, :SFCr; 



stash index of proc. (*2) 
dest link = for local call 
will return to XferG 



LFCB - call local procedure number 'alpha' (i.e. within same global frame) 



LFCB: 
LFCr: 



IR*-sr22, rGetalpha; 
L^O+T+1. :LFCx; 
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RET - Return from function call. 
!l,l,RETx; 



RET: 

RETx: 
RETxr: 



RETr: 



T^lp, :RETx; 

IR*-2, :CheckXferTrap; 

MAR*-nretlinkoffset+T; 

L^n1poffset+T+l; 

f rame<-L; 

L<-MD; 

mx<-L, L<-0, IR^msrO, TASK; 

my^L, rFreeSub; 

T<-mx, :Xfers; 



shake B/A branch 
local pointer 

get previous local frame 

stash for 'Free' 

pick up prev frame pointer 

mx points to caller 

clear my and go free frame 

xfer back to caller 



LINKB - store back link to enclosing context into local 

LINKS is assumed to be A-aligned (no pending branch at entry) 



LINKB: 



MAR*-lp-T-l; 
T*-ib; 

L<-mx-T. TASK; 
MD*-M. :nextA; 



address of local 

L: mx-alpha 

local ♦- mx-alpha 



LLKB - push external link 'alpha' 

LLKB is assumed to be A-aligned (no pending branch at entry) 



LLKB: 
LLKBr: 



T^ib; 

L+-0-T-1, IR<-0. :EFCdoGetlink; 

:pushTA; 



T:alpha 

L:-(alpha+l) , go call Getlink 

alignment requires pushTA 
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Port Operations 



PORTO - PORT Out (XFER thru PORT addressed by TOS) 



PORTO: 


IR<-sr3, :Savpcinf rame; 


PORTOpc: 


L«-ret5, TASK, :Xpopsub 


PORTOr: 


MAR<-T; 




L<-T; 




MD<-my ; 




MAR<-M+1; 




my*-L, :Mtrapa; 



undiddle Ip into my 
returns to PORTOr 
fetch from TOS 

frame addr to word of PORT 

second word of PORT 

source link to PORT address 



; PORTI - PORT In (Fix up PORT return, always immediately after PORTO) 
; assumes that my and mx remain from previous xfer 



!l,l,PORTIx; 
!l,2,P0RTInz,P0RTIz; 



PORTI: 
PORTIx: 

PORTInz: 

PORTIz: 



MAR^mx, : PORTIx; 

SINK<-my, BUS = 0; 
TASK, :PORTInz; 

MD^O; 
MAR*-mx+l; 
TASK, : PORTIz; 
MD^my, :next; 



first word of PORT 



store it as second word 
store my or zero 
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State Switching 



Savestate subroutine: 

saves state of pre-empted emulation 
Entry conditions: 

L holds address where state is to be saved 

assumes undiddled Ip 
Exit conditions: 

Ip, stkp, and stack (from base to min[depth+2,8]) saved 



; !l,2,DSTrl,Mstopc; actually appears as %1, 1777, 776, DSTrl.Mstopc; and is located 
; in the front of the main file (Mesa.mu). 

!17,20,Sav0r,Savlr,Sav2r,Sav3r,Sav4r,Sav5r,Sav6r,Sav7r,Savl0r,Savllr,DSTr, , , , , ; 
!l,2,Savok,Savmax; 



Savestate: 


temp*-L; 




Savestatea: 


T<-12+1: 




L*-lp, :Savsuba; 


SavUr: 


L<-stkp, :Savsub; 


SavlOr: 


T<-stkp+l; 




L«-7+T; 




L^O+T+1, ALUCY; 




temp2^L, L<-0-T, :Savok; 


Savmax: 


T^-7; 




L*-stk7, :Savsuba; 


Savok: 


SINK^temp2, BUS; 




count<-L, :SavOr; 


Sav7r: 


L^stk6, :Savsub; 


Sav6r: 


L*-stk5, 


Savsub; 


Sav5r: 


Ustk4. 


Savsub; 


Sav4r: 


UstkS, 


Savsub; 


SavSr: 


L^stk2. 


Savsub; 


Sav2r: 


L^stkl, 


Savsub; 


Savlr: 


L^stkO. 


Savsub; 


SavOr: 


SINK^DISF 


\ BUS; 



T«-12, :DSTrl; 

Remember, T is negative 

Savsub: T*-count; 
Savsuba: temp2*-L, L<-0+T+l; 

MAR<-temp-T; 

count«-L, L<-0-T; 

SINK<-M, BUS, TASK; 

MD*'temp2, :Sav0r; 



i.e. T^-11 

check if stkp > 5 or negative 

L:stkp+2 

L:-stkp-l 

stkp > 5 => save all 
stkp < 6 => save to stkp+2 



return to caller 
(for DST's benefit) 



dispatch on pos. value 
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Loadstate subroutine: 

load state for emulation 

Entry conditions: 

L points to block from which state is to be loaded 

Exit conditions: 

stkp, mx, my, and stack (from base to min[stkp+2,8]) loaded 
(i.e. two words past TOS are saved, if they exist) 

Note: if stkp underflows but an interrupt is taken before we detect 
it, the subsequent Loadstate (invoked by Mgo) will see 377B in the 
high byte of stkp. Thinking this a breakpoint resumption, we will 
load the state, then dispatch the 377 (via brkbyte) in XferO, causing 
a branch to StkUf (!) This is not a fool-proof check against a bad 
stkp value at entry, but it does protect against the most common 
kinds of stack errors. 



17,20,Lsr0,Lsrl,Lsr2,Lsr3,Lsr4,Lsr5,Lsr6,Lsr7,Lsrl0,Lsrll,Lsrl2, 
l,2,Lsmax,Ldsuba; 



Loadstate: 


temp<-L, ] 


[R*-msrO, :NovaIntrOn 


Lsr: 


T<-12, :Ldsuba; 


Lsrl2: 


my«-L, :Ldsub; 


Lsrll: 


mx*-L, : Ldsub; 


LsrlO: 


stkp^L; 




T^stkp; 




L<-177400 AND T; 




brkbyte<-L LCY 8; 




L*-T<-17.T; 




L^-7+T: 




L^T, SH<0; 




stkp*-L, T<-0+T+l, : Lsmax; 


Lsmax: 


T<-7, :Ldsuba; 


Lsr7: 


stk7^L, 


Ldsub 




Lsr6: 


stke^L, 


Ldsub 




Lsr5: 


stk5<-L, 


Ldsub 




Lsr4: 


stk4^L, 


Ldsub 




Lsr3: 


stk3*-L, 


Ldsub 




Lsr2: 


stk2<-L. 


Ldsub 




Lsrl: 


stkl^L, 


Ldsub 




LsrO: 


stkO^L, 


Xfer; 


Ldsub: 


T<-count; 


Ldsuba: 


MAR<-temp+T; 




L*-ALLONES+T; 




count<-L, L*-T; 




SINK^M, BUS; 




L*-MD, TA< 


5K, :Ls 


jrO; 



stash pointer 



check for BRK resumption 
(i.e. bytecode in stkp) 
stash for Xfer 
mask to 4 bits 
check stkp > 6 

T:stkp+1 



deer count for next time 
use old value for dispatch 
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DST - dump state at block starting at <LP>+alpha, reset stack pointer 

assumes DST is A-aligned (also ensures no pending branch at entry) 



DST: 



DSTrl: 
DSTr: 



T^ib; 

T<-lp+T+l; 

L*-nlpoffsetl+T+l, TASK; 

temp^L, IR^retO, :Savestatea; 

L^my, :Savsuba; 

temp<-L, L^O, TASK, BUS = 0, :Setstkp; 



get alpha 

L:lp-lpoffset+alpha 

save my too! 

zap stkp, return to 'nextA' 



LST - load state from block starting at <LP>+alpha 

assumes LST is A-aligned (also ensures no pending branch at entry) 



LST: 



LSTr: 



L^ib; 

temp<-L, L*-0, TASK; 

ib^L; 

IR*-sr4, :Savpcinf name; 

T*-temp; 

L<-lp+T, TASK, :Loadstate; 



make Savpcinframe happy 

returns to LSTr 

get alpha back 

Ip al ready undiddled 



LSTF - load state from block starting at <LP>+alpha, then free frame 

assumes LSTF is A-aligned (also ensures no pending branch at entry) 



LSTF: 



LSTFr: 



T*-lpoffset; 
L<-lp-T, TASK; 
f rame^L; 
IR«-sr2, :FreeSub; 

T<-f rame; 

L^ib+T. TASK, :'Loadstate; 



compute frame base 



set up by FreeSub 

get state from dead frame 
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Emulator Access 



RR - push <emulator register alpha>, where: 

RR is A-aligned (also ensures no pending branch at entry) 
alpha: 1 => wdc, 2 => XTSreg, 3 => XTPreg, 4 => ATPreg, 
5 => OTPreg 



!l,l,DoRamRWB; shake B/A dispatch (BLTL) 

RR: L<-0. SWMODE, :DoRamRWB; 

DoRamRWB: SINK^M, BUS. L<-T , : ramOverf low; L<-T for WR 



WR - emulator register alpha ♦- <TOS> (popped), where: 

WR is A-aligned (also ensures no pending branch at entry) 
alpha: 1 => wdc, 2 => XTSreg 



WR: L^ret3, TASK. :Xpopsub; 

WRr: L<-2. SWMODE, :DoRamRWB; 



ORAM - JMPRAM for Mesa programs (when emulator is in ROMl) 



JRAM: L^ret2. TASK, :Xpopsub; 

JRAMr: SINK<-M, BUS, SWMODE, :next; BUS applied to 'nextBa' ( = 0) 
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Process/Monitor Support 



! 1, 1 .MoveParmsl ; 
! l,l,MoveParms2; 
! 1, 1 ,MoveParms3; 
; !1, l,MoveParnis4; 



shake B/A dispatch 

shake B/A dispatch 

shake B/A dispatch 

shake B/A dispatch 



; ME,MRE - Monitor Entry and Re-entry 
; MXD - Monitor Exit and Depart 



!l,l,FastMREx; 

!l,l,FastEEx; 

!7,l,FastEExx; 

!l,2,MXDr.MEr; 

!7,l,FastEExxx; 

%3.17.14.MXDrr,MErr,MRErr; 

!l,2,FastEEtrapl,MEXDdone; 

!l,2.FastEEtrap2,MREdone; 



drop ban 1 
drop ball 1 
shake IR^isME/isMXD 

shake IR*-isMRE 



The following constants are carefully chosen to agree with the above pre-defs 



SisME $6001; 

$isMRE $65403; 

$isMXD $402; 

ME: IR*-isME, :FastEEx; 

MXD: IR<-isMXD. :FastEEx; 

MRE: MAR*-HardMRE, :FastMREx; 

FastMREx: IR<-isMRE, iMXDr; 

FastEEx: MAR*-stk0, IDISP, :FastEExx; 

FastEExx: T^IOOOOO, :MXDr; 

MXDr: L^MD, mACSOURCE, :FastEExxx; 

MEr: L<-MD-T, mACSOURCE, :FastEExxx; 

FastEExxx: MAR<-stkO, SH = 0. :MXDrr; 

Note: if control goes to FastEEtrapl or FastEEtrap2, ACl or 

but their contents aren't guaranteed anyway. 
Note also that MErr and MXDrr cannot TASK. 

MXDrr: L<-T, T«-0, : FastEEtrapl ; 

MErr: T<-0+l, : FastEEtrapl; 

MRErr: L^O+1, TASK. : FastEEtrap2 ; 

MEXDdone: MD<-M, L<-T, TASK, :Setstkp; 

MREdone: stkp^L, :ME; 



IDISP:1, DISP:1. mACSOURCE :1 
IDISP:13. DISP:3, mACSOURCE : 16 
IDISP:0, DISP:2, mACSOURCE :0 

indicate ME instruction 
indicate MXD instruction 

<HardMRE> ~= => do Nova code 
indicate MRE instruction 

fetch monitor lock 

value of unlocked monitor lock 

L:0 if locked (or queue empty) 
i:0 if unlocked 

start store, test lock state 

AC2 will be smashed. 



L:100000, T:0 (stkp value) 
L:0, T:l (stkp value) 
L: 1 (stkp value) 



queue empty, treat as ME 
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MXW - Monitor Exit and Wait 



MXW: 



IR«-4, :MoveParms3; 



3 parameters 



NOTIFY, BCAST - Awaken process(es) from condition variable 



NOTIFY: 
BCAST: 



IR<-5, :MoveParmsl; 
IR<-6, :MoveParmsl; 



1 parameter 
1 parameter 



REQUEUE ~ Move process from queue to queue 



REQUEUE: 



IR*-7, :MoveParms3; 



3 parameter 



Parameter Transfer for Nova code linkages 
Entry Conditions: 
T: 1 
IR: dispatch vector index of Nova code to execute 



;MoveParms4: 


L^stk3. TASK; 


; 


AC3^L; 


MoveParms3: 


L-stk2, TASK; 


FastEEtrap2: 


AC2<-L; 


MoveParms2: 


L<-stkl, TASK; 


FastEEtrapl: 


ACl^L; 


MoveParmsl: 


LostkO, TASK; 




ACO^L; 




L<-0, TASK; 




Stkp*-L; 




T^DISP+1. :STOP 



if you uncomment this, don't 
forget the pre-def above! 

(enter here from MRE) 

(enter here from ME/MXD) 

indicate stack empty 
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Miscellaneous Operations 



CATCH - an emulator no-op of length 2. 

CATCH is assumed to be A-aligned (no pending branch at entry) 



CATCH: 



L*-mpc+l, TASK, :nextAput; 



duplicate of 'nextA' 



STOP - return to Nova at 'NovaDVloc+T 

control also comes here from process opcodes with T set appropriately 



!l,l,GotoNova; 

STOP: L^NovaDVloc+T, :GotoNova; 



shake B/A dispatch 



STARTIO - perform Nova-like I/O function 



STARTIO: L«-ret4, TASK, :Xpopsub; 
STARTIOr: SINK<-M, STARTF. :next; 



get argument in L 



; MISC - escape hatch for more than 256 opcodes 



!l,2,RamMisc,RCLK; 
!l,l,MISCx; 

MISC: IR*-sr36, :Getalpha; 

MISCr: L*-ll-T, :MISCx;- 

MISCx: L*-CLOCKLOC-1. SH=0; 

temp<-L, IR*-0, :RamMisc; 
RCLK: L*-clockreg, :Dpushc; 

RamMisc: L*-3 , SWMODE , :DoRamRWB; 



RCLK or something else 
shake B/A branch 

get argument in T 
test for RCLK 



don't TASK here! 
dispatch alpha#ll to RAM 
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BLT - block transfer 

assumes stack has precisely three elements: 

stkO - address of first word to read 

stkl - count of words to move 

stk2 - address of first word to write 
the instruction is interruptible and leaves a state suitable 

for re-execution if an interrupt must be honored. 



!l,l,BLTx; shakes entry B/A branch 

BLT: stk7*-L, SWMODE, :BLTx; Stk7 = < = > branch pending 

BLTx: IR<-msrO, :ramBLTloop; IR^ is harmless 



BLTL - block transfer (long pointers) 

assumes stack has precisely three elements: 

StkO, stkl - address of first word to read 

stk2 - count of words to move 

stk3, stk4 - address of first word to write 
the instruction is interruptible and leaves a state suitable 

for re-execution if an interrupt must be honored. 



BLTL: stk7<-L. L^T , SWMODE , :DoRamRWB; stk7 = < = > branch pending. L:l 



BLTC - block transfer from code segment 

assumes stack has precisely three elements: 

StkO - offset from code base of first word to read 

stkl - count of words to move 

stk2 - address of first word to write 
the instruction is interruptible and leaves a state suitable 

for re-execution if an interrupt must be honored. 



!l,l.BLTCx; shake B/A dispatch 

BLTC: Stk7^L, SWMODE. :BLTCx; 

BLTCx: IR«-srl, :ramBLTloop; 



BITBLT - do BITBLT using ROM subroutine 

If BITBLT A-aligned, B byte will be ignored 



ll.l.BITBLTx; shake B/A dispatch 

BITBLT: stk7«-L. :BITBLTx; save even/odd across ROM call 

BITBLTx; L^IO. SWMODE. :DoRamRWB; 
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Mesa/Nova Communication 



Subroutines to Enable/Disable Nova Interrupts 



currently each subroutine has only one caller 
!7,l,NovaIntrOffx; 

NovalntrOff : T^IOOOOO; 

NovalntrOffx: L<-NWW OR T, TASK. IDISP; 
NWW<-L, :Mstop; 

NovalntrOn: T<-100000; 

L*-NWW AND NOT T, IDISP; 
NWW^L. L^O, :Lsr; 



shake IR<- dispatch 

disable bit 

turn it on, dispatch return 



disable bit 

turn it off, dispatch return 



IWDC - Increment Wakeup Disable Counter (disable interrupts) 
!l,2,IDn2,ID2; 



IWDC: 



L<-wdc+l, TASK, :IDnz; 



skip check for interrupts 



DWDC - Decrement Wakeup Disable Counter (enable interrupts) 

!l.l,DWDCx; 

DWDC: MAR*-WWLOC, :DWDCx; OR WW into NWW 

DWDCx: T<-NWW; 

L*-MD OR T, TASK; 
NWW<-L ; 

SI.NK<-ib, BUS = 0; 
L*-wdC-l, TASK, :IDnz; 

; Ensure that one instruction will execute before an interrupt is taken 



IDnz: 
IDz: 



wdc<-L, :next; 
wdc*-L, :nextAdeaf; 



Entry to Mesa Emulation 

ACQ holds address of current process state block 
Location 'PSBloc' is assumed to hold the same value 



Mgo: 



L<-AC0, :Loadstate; 
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Nova Interface 
$START $1004020, 0,0; Nova emulator return address 



Transfer to Nova code 
Entry conditions: 

L contains Nova PC to use 
Exit conditions: 

Control transfers to ROMO at location 'START' to do Nova emulation 

Nova PC points to code to be executed 

Except for parameters expected by the target code, all Nova ACs 

contain garbage 
Nova interrupts are disabled 



GotoNova: PC*-L, IR<-msrO, : NovalntrOff ; stash Nova PC, return to Mstop 



Control comes here when an interrupt must be taken. Control will 
pass to the Nova emulator with interrupts enabled. 



Intstop: L*-NovaDVloc, TASK; resume at Nova loc. 308 

PC^L, :Mstop; 



Stash the Mesa pc and dump the current process state, 
then start fetching Nova instructions. 



Mstop: IR<-sr2, :Savpcinf rame ; save mpc for Nova code 

Mstopr: MAR<"CurrentState; get current state address 

IR«-retl; will return to 'Mstopc' 

L<-MD, :Savestate; dump the state 

; The following instruction must be at location 'SWRET*, by convention. 

Mstopc: L*-uCodeVersion, SWMODE ; stash ucode version number 

cp*-L, :START; off to the Nova ... 
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XMesaOverflow.Mu - Driver for XMesaRAM.mu 

Last modified by Johnsson - September 22, 1980 9:11 AM 



; Get Alto Definitions (Mesab.mu included internally by XMesaRAM.mu) 
#AltoConsts23.mu; 



Reserve locations 0-17 of RAM for device tasks (silent boot) 



7ol7, 1777, 0Jask0,Taskl,Task2. Tasks. Task4, Tasks, Task6, Task?. 

Taskl0.Taskll,Taskl2,Taskl3.Taskl4,Taskl5,Taskl6,Taskl7; 



TaskO 


TASK, 


:TaskO; 




Taskl 


TASK, 


:Taskl; 




Task2 


TASK, 


:Task2; 




Task3 


TASK, 


:Task3; 




Task4 


TASK, 


:Task4; 




Task5 


TASK, 


:Task5; 




Task6 


TASK, 


:Task6; 




Task7 


TASK, 


:Task7; 




TasklC 


): 


TASK, 


:TasklO 


Taskll 


L: 


TASK, 


:Taskll 


Taskl2 


I . 


TASK, 


:Taskl2 


Taski: 


J: 


TASK, 


:Taskl3 


Taskl^ 


\: 


TASK, 


:Taskl4 


Taskie 


) : 


TASK, 


:Taskl5 


Taskie 


5: 


TASK, 


:Taskl6 


Taskl' 


J: 


TASK, 


:Taskl7 



; Reserve 774-1003 for Ram Utility Area. 

%7, 1777, 774, RU774, RU775, RU776, RU777, RUIOOO, RUlOOl, RU1002, RU1003; 

For the moment, just throw these locations away. This is done only 
to squelch the "unused predef" warnings that would otherwise occur. 
If we ever run short of Ram, assign these to real instructions 
somewhere in microcode executed only by the Emulator. 



RU774: 
RU776: 


NOP; 
NOP; 


RU776: 


NOP; 


RU777: 


NOP; 


RUIOOO 


NOP; 


RUlOOl 


NOP; 


RU1002 


NOP; 


RU1003 


NOP; 



Predefs for griffin 

HBlt is the entry point. 



%1, 1777, 550, HBlt; 
%1. 1777, 177, MULret; 



Predefs for Pup checksum 
%7, 1777, 1402, PupChecksum; 



Now bring in Mesa overflow microcode 
#XMesaRAM.mu; 



MISC - Miscellaneous instructions specified by alpha 
alpha=ll => RCLK has been handled by ROM 
T contains alpha on arrival at MISC in RAM 
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; Precisely one of the following lines must be commented out. 

;MISC: L^O. SWMODE , :Setstkp; dummy MISC implementation 

#Float.mu; REAL implementation 



HBlt (Griffin) - this code may be omitted 
#HBlt.mu; 

PupChecksum - this code may be omitted 
#Checksum.mu; 
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XMesaRAM.Mu - Overflow XMesa microcode from ROMl 

version 6, compatible with main microcode >=39 

Last modified by Johnsson on April 28. 1980 7:01 PM 



; Separate assembly requires.. 
^Mesab.mu; 



Entry Point Definitions: 
The definitions below must correspond to those in Mesab. 



7ol,1777,20,GoToR0M; 

%1, 1777. 402, BLTintpend.BLTl OOP ; 

7o3, 1777. 404. BLTnoint.BLTint.BLTLnoint.BLTLint; 

%1. 1777. 410, Overflow; 

%1, 1777. 411, JramBITBLT; 



must match ramMgo 

BLTloop must match ramBLTloop 
BLTint must match ramBLTint 

must correspond to ramOverflow 

advertized place to do BITBLT 



BITBLT linkage: 

An additional constraint peculiar to the BITBLT microcode is that 
the high-order 7 bits of the return address be I's. Hence, 
the recommended values are: 

no ROMl extant or emulator in ROMl => BITBLTret = 177577B 
ROMl extant and emulator in RAM => BITBLTret = 177175B 



SROMBITBLT $L004124.0 . ; BITBLT routine address {124B) in ROMO 

$BITBLTret $177175; (may be even or odd) 

; The third value in the following pre-def must be: (BITBLTret AND 777B)-1 

7ol, 1777, 174, BITBLTintr.BITBLTdone; return addresses from BITBLT in ROMO 



Overflow instruction dispatch 
! 17, 20, RR.BLTL.WR, MISC. DADD,DSUB,DCOMP,DUCOMP, BITBLT, , 



GoToROM: 



L^ONE, SWMODE; 
gp*-L. :romMgo; 



dispatched in ROMl 

smash G to disable 
optimization on initial entry 
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Double-Precision Arithmetic 



; !l,l,DSUBsub; 
!3,4,DAStail , , ,DCOMPr; 
!l,l,Dsetstkp; 
!l,l,Setstkp; 



Overflow: 



:RR; 



shake B/A dispatch 
returns from DSUBsub 
shake ALUCY dispatch 
shake IDISP from BLTnoint 

dispatch pending 

TASK pending for doubles 



DADD - add two double-word quantities, assuming: 
stack contains precisely 4 elements 



!l,l,DADDx; 
! 1 , 2 , DADDnocarry , DADDcarry ; 



DADD: 
DADDx: 



DADDnocarry: 
DADDcarry: 



T<-stk2, : DADDx; 
L*-stkO+T; 
stkO*-L, ALUCY; 
T«-stk3, :DADDnocarry ; 

L^-stkl+T, :DASCtail ; 
L^stkl+T+1, :DASCtail : 



Shake B/A dispatch 



T:low bits of right operand 

L:low half of sum 

stash, test carry 

T:high bits of right operand 

L:high half of sum 
L:high half of sum 



DSUB - subtract two double-word quantities, assuming: 
stack contains precisely 4 elements 



DSUB : 



IR<-msrO, :DSUBsub; 



; Double-precision subtract subroutine 



! 1 , 2 , DSUBborrow , DSUBnobo rrow ; 
!7,l,DSUBx; 



DSUBsub: 
DSUBx: 



DSUBborrow: 
DSUBnoborrow: 



T*-stk2, : DSUBx; 
L<-stkO-T; 
stkO<-L, ALUCY; 
T<-stk3, : DSUBborrow; 

L<-stkl-T-l, IDISP. :DASCtail; 
L<-stkl-T. IDISP, :DASCtail; 



shake IR<- dispatch 

T:low bits of right operand 
L:low half of difference 
borrow = -carry 
T:high bits of right operand 

L:high half of difference 
L:high half of difference 



Common exit code 



DASCtail: stkl*-L, ALUCY, :DAStail; 

DAStail: T^2, :Dsetstkp; 

Dsetstkp: L<-stkp-T, SWMODE, :Setstkp; 

Setstkp: stkp<-L, :romnext; 



carry used by double compares 
adjust stack pointer 



'next' has proper SWMODE bit 
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DCOMP - compare two long integers, assuming: 
stack contains precisely 4 elements 
result left on stack is -1, 0, or +1 (single-precision) 



!l,l,DCOMPxa; 
10,l,DCOMPxb; 

l,2,DC0MPnocarry,DC0MPcarry; 
l,2,DC0MPgtr.DC0MPequal ; 



DCOMP: 

DCOMPxa: 

DCOMPxb: 



DCOMP r: 

DCOMPnocarry: 
DCOMPcarry: 

DCOMPsetT: 

DCOMPgtr: 
DCOMPequal : 



IR*-T^100000, :DCOMPxa; 
L^stkl+T, : DCOMPxb; 
Stkl^L; 

L<-stk3+T. TASK; 
stkS^L, :DSUBsub; 

T<-stk0 , : DCOMPnocarry ; 

L^O-1, BUS=0, :DCOMPsetT; 

L<-M OR T; 

SH = 0; 

T*-3, : DCOMPgtr; 

L^O+1, : DCOMPequal ; 
stkO^L, :Dsetstkp; 



shake B/A dispatch 
shake IR*- dispatch 



IR<-msrO, must shake dispatch 
scale left operand 

scale right operand 

do DSUB, return to DCOMPr 

L: stkl, ALUCY pending 

left opnd < right opnd 
L: stkO OR stkl 

T: amount to adjust stack 

left opnd > right opnd 
stash result 



DUCOMP - compare two long cardinals, assuming: 
stack contains precisely 4 elements 

result left on stack is -1, 0, or +1 (single-precision) 
(i.e. result = sign(stkl, ,stkO DSUB stk3,,stk2) ) 



DUCOMP: 



IR*-sr3, :DSUBsub; 



returns to DCOMPr 
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Emulator Access 



RR - push <emulator register alpha), where: 

RR is A-aligned (also ensures no pending branch at entry) 
alpha: 1 => wdc, 2 => XTSreg, 3 => XTPreg, 4 => ATPreg, 
5 => OTPreg 



!7,10,RR0,RR1,RR2.RR3,RR4,RR5, , ; 



RR: 
RRO: 

RRl 
RR2 
RR3 
RR4 
RR5 



SINK*-ib, BUS; 
L*-0, SWMODE, :RRO; 

L*-wdc, SH=0, :romUntail; 
L<-XTSreg. SH = 0. :romUntail; 
L^XTPreg, SH=0, :romUntail; 
L<-ATPreg, SH = 0. :romUntail; 
L<-OTPreg, SH=0, :romUntail; 



dispatch on alpha 

(so SH=0 below will branch) 

will go to pushTA 

will go to pushTA 

will go to pushTA 

will go to pushTA 

will go to pushTA 



WR - emulator register alpha *■ <TOS> (popped), where: 

WR is A-aligned (also ensures no pending branch at entry) 
alpha: 1 => wdc, 2 => XTSreg 



!7,10,WR0,WR1,WR2.,,,, ; 

; WR: L<-ret3, TASK, :Xpopsub; 



WR: 
WRO: 

WRl: 
WR2: 



SINK^ib, BUS; 
SWMODE, :WR0; 

wdc<"L, :romnextA; 
XTSreg*-L, :romnextA; 



performed in ROM 
dispatch on alpha 
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BLT - block transfer 

assumes stack has precisely three elements: 

stkO - address of first word to read 

stkl - count of words to move 

stk2 - address of first word to write 
the instruction is interruptible and leaves a state suitable 

for re-execution if an interrupt must be honored. 



l,2,BLTmore,BLTdone; 
l,2,BLTsource,BLTCsource; 
l,2,BLTeven,BLTodd; 
l.l.BLTintx; 

Entry sequence in ROMl; actual entry is at BLTloop 



;BLT: 
;BLTx: 



Stk7<-L, SWMODE. :BLTx; 
IR«-msrO, :ramBLTloop; 



Shake branch from BLTloop 



stk7=0 <=> branch pending 
IR<- is harmless 



BLTloop: L*-T«-stkl-l. BUS = 0, :BLTnoint; 
BLTnoint: stkl«-L, L*-BUS AND ~T . IDISP, :BLTmore; 



BLTmore: 

BLTsource: 
BLTCsource: 

BLTupdate: 



T<-cp, :BLTsource; 

MAR<-stkO, : BLTupdate; 
XMAR*-stkO+T , : BLTupdate ; 

L^stkO+1; 

stkO<-L; 

L*-stk2+l; 

T<-MD; 

MAR«-stk2; 

Stk2*-L, L*-T; • 

SINK<-NWW, BUS = 0. TASK; 

MD<-M, :BLTintpend; 

BLTintpend: SINK^wdc, BUS^O, :BLTloop; 

; Must take an interrupt if here (via BLT or BITBLT) 

BLTint: SINK*-stk7, BUS = 0, :BLTintx; 
BLTintx: L<-mpc-l, :BLTeven; 

BLTeven: mpc^L. L<-0 , :BLTodd; 
BLTodd: ib^L, SWMODE; 
: romlntstop; 

BLT completed 

BLTdone: SINK^stk?, BUS=0, SWMODE, :Setstkp; 



L^O on last iteration (value 
on bus is irrelevant, since T 
will be -1). IDISP on last 
cycle requires that Setstkp 
be odd. 



start data source fetch 
start code source fetch 



update source pointer 

source data 
start dest. write 
update dest. pointer 
check pending interrupts 
loop or check further 

check if interrupts enabled 



test even/odd pc 
prepare to back up 

even - back up pc, clear ib 
odd - set ib non-zero 



stk7=0 => return to 'nextA' 
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BLTL - block transfer (long pointers) 

assumes stack has precisely five words: 
stkO, stkl - address of first word to read 
stk2 - count of words to move 
stk3, stk4 - address of first word to write 

the instruction is interruptible and leaves a state suitable 
for re-execution if an interrupt must be honored. 

the following are used as temporaries (here and BITBLT): 
stk7 - saved B/A flag from instruction dispatch 
stk6 - saved value of emulator bank register 



7,l,BLTLsetBR; 

7.1,BLTLsetBRx; 

7,10.BLTLretO,BLTLretl,BLTLret2,BBret3.BBret4,,,; 

l,2,BLTLintpend,BLTLloop; 

1.2.BLTLmore,BLTLdone; 

!1.2,BLTLnoint,BLTLint; 



shake BUS=0 and IR*- 
shake IR<- 



appears above 



Note: ROMl code does stk7<-L 



BLTL: 



MAR<-BankReg; 

T*-stkl; 

L^stkl+T; 

temp<-L LSH 1, IR*-msrO; 

L*-MD. TASK; 

stk6*-L; 

T*-stk4; 

T<-3.T, :BLTLsetBR; 



access bank register 
high source bits 
L: high source *2 
temp: high source *4; 
L: old bank register 
stk6: stashed register 

T: high dest bits 

(would like to avoid this) 

returns to BLTLretO 



BLTLloop: L*-T*-stk2-l , BUS:=0, :BLTLnoint; 
BLTLnoint: stk2^L, :BLTLmore; 



decrement count, test done 
T: -1 the last time 



BLTLmore: MAR<-stkO; 

L*-stkO+l; 

stkO«-L; 

L^stk3+1; 

T^MD; 

XMAR*-stk3; 

Stk3*-L, L<-T; 

SINK<-NWW. BUS = 0, TASK; 
BLTLretO: MD<-M, :BLTLintpend; 

BLTLintpend: SINK^wdc, BUS=0, :BLTLloop; 

BLTLint: IR<-sr2. :BLTLsetBR; 
BLTLret2: MD<-stk6, :BLTint; 



fetch source word 
bump source pointer 

bump destination pointer 

initiate store 

L: data 

check for possible interrupt 

stash data 

check if enabled 

restore bank before interrupt 
BLTint shakes branch 



BLTLdone: IR<-srl. :BLTLsetBR; 

BLTLretl: MD<-stk6. L^stk6 AND NOT T, :BLTdone; 



restore bank before exit 
BLTdone shakes branch, L<-0 



BLTLsetBR: MAR<-BankReg , :BLTLsetBRx; 
BLTLsetBRx: L*-temp OR T, IDISP; 

SINK<-0. BUS = 0, :BLTLret0; 



(used by BLTLretO only) 
force branch for BLTLretO 
others must shake 
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BITBLT - do BITBLT using ROMO subroutine 

If BITBLT A-aligned, B byte will be ignored 
temporaries (in addition to BLTL): 

Stk5 - 0=>short BITBLT, 2=>long BITBLT 

temp - holds value from second word of bbtable 



from ROM 
!l,l,BITBLTx; 

;BITBLT: 
;BITBLTx: 



Stk7*-L. :BITBLTx; 
L*-10, SWMODE, :DoRamRWB; 



Shake B/A dispatch 

save even/odd across ROM call 



!l,2.IntOff .TestLong; 
!l,2,LongBB,DoBITBLT; 
7c2,3.1,BBshortDone.BBlongDone; 



JramBITBLT: 


L*-ib, TASK; 
Stk7*-L; 
L^3, TASK; 
stkpoL, :BITBLT; 




BITBLT: 


L<-stkO; 

AC2^L, L*-0. TASK; 

stk5*-L; 

SINK<-wdc, BUS = 0; 

T^IOOOOO, :IntOff; 




IntOff : 


L^NWW OR T; 
NWW<-L, :TestLong; 




TestLong : 


MAR^StkO+1; 

L*-stkl; 

ACl-L; 

L**MD, BUS = 0, TASK; 

temp*-L, : LongBB; 




!7,l,BBx; 


shake 


IR-sr3 


LongBB: 


MAR*-BankReg; 
L^2; 
$tk5<-L; 
IR^sr3; 
L<-MD. TASK; 




BBx: 


stk6<-L, :BLTLsetBR; 




BBret3: 


MD<-temp, : DoBITBLT; 




DoBITBLT: 


L^BITBLTret, SWMODE; 
PC<-L. L<-0, :ROMBITBLT; 




BITBLTdone: 


T^IOOOOO; 

L<-NWW AND NOT T; 

SINK<-stk5, BUS; 

NWW<-L, L^T<-0. :BBshortDone; 




BBlongDone: 


IR*-sr4. :BLTLsetBR; 




BBret4: 


MD<-stk6, L^T, :BBshortDone; 





BBshortDone: 



brkbyte<-L, BUS=0. SWMODE, :Setstkp; 



BITBLTintr:L*-ACl; 

SINK<-stk5, BUS; 
stkl*-L. :BLTint; 



also shake SetBR branch 

save alignment for interrupts 
set stkp for interrupts 



check if Mesa interrupts off 
if so, shut off Nova's 

fetch word for long check 
stash intermediate state 
BR word 



old Bank reg 



get return address 

L<-0 for Alto II ROMO "feature" 



don't bother to validate stkp 
pick up intermediate state 
stash intermediate state 



